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Dear You! 

Welcome to volume 2 of The Secret Guide to Computers. I hope you like it. Within 
its pages, you'll discover the most thrilling aspects of computers. 

The Secret Guide to Computers has been praised by reviewers all over the world. 
For samples of the praise, peek at the back cover. 

This "volume 2" is part of a three-volume set. Before reading volume 2, you'll 
want to read volume 1, which covers the fundamental skills and tricks. Afterwards, 
you'll want to read volume 3, which covers the most advanced topics and helps you 
enhance your computer career. To get those volumes, ask your favorite bookseller, 
or mail the coupon on the back page. 

Whenever you have a question about computers (or life! ), phone me at (617) 
666-2666, and I'll help you, free! You can phone day or night, 24 hours: I'm almost 
always in, and I sleep only lightly. 


At your service, 
Your computer butler, 
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(1) Opening comments: welcome 


TABLE OF CONTENTS 


CONTENTS OF VOLUME 1: SECRET SKILLS 
Chapters 1-3 analyze computer equipment, by examining all of The Computer 
Industry, peeking inside The Computer's Parts, and giving you a Buyer's Guide 
that reveals where to get the best deals. Chapters 4-5 turn you into an amazing 
programmer, who can do very Personal Programming and then conquer the world 
with the most Powerful Programming ever unleashed. Chapters 6-9 train you in using 
the most popular software for the IBM Personal Computer and competitors, so you 


become a guru of DOS, Word Processing, Spreadsheets, and Data-Management 
Systems. | 


oink CONTENTS OF VOLUME 2: SECRET THRILLS 3)3hetdnididinotnioiok 
Volume 2, which you have in your hand, reveals the most thrilling aspects of 
computers. 

Chapter 1 reveals Amazing Applications. You discover where the computer 
industry is heading and the strange places it's been. You even learn how to make the 
computer imitate a psychotherapist, so you can become a therapist yourself! 

Chapter 2 gives you Electronic Pleasures. Besides using the computer to create 
wild art, music, and games, you see how the computer can even help you fall in love! 

_ Chapter 3 shows how the Literary Computer creates everything from poetry to 
pornography. 

Chapter 4 analyzes the computer's Artificial Intelligence and the attempts to make 
it as smart as you! 

Chapter 5 reveals tricks for avoiding the tortures of Computerizing Your 
Business. | 

Chapters 6-9 turn you into a top-notch programmer who can do Advanced 
Programming using BASIC, LOGO, PASCAL, and DBASE. 

Here are the details. ... 


CHAPTER 1: AMAZING APPLICATIONS 


Frustrations (barf, speech, art, music, artificial intelligence, languages) 4 
Telecommunication (popular services, BBS, download, barriers, voice mail) 7 
Analyze yourself (death, brainwaves, horoscopes, psychotherapy) 9 


CHAPTER 2: ELECTRONIC PLEASURES 
Classic computer art (gray, transform, order, envelopes, famous, what's art) 18 


3-D drawing (famous examples, drawing an object, computerized process) 37 
Mac Paint (fun, paint, undo, type, select, double-click, constrain, end) ~ 40 
Beyond Mac Paint (clip, Thunder, improve, colors, CAD, business, fun) 45 
Music (ultimate music machine, tone quality, note creator, output, vendors) 53 
Board games (trees, checkers, chess, levels, why, Othello, backgammon) 54 
Action games (arcade games, game watches, Olympics, sports heroes) 60 
Adventure (original adventure, microcomputer versions, popular publishers) 61 
Fall in love (history, TV, dating, dancing, weddings, new products) 67 


CHAPTER 3: THE LITERARY COMPUTER 
Be poetic (Elevator, Bubbles, kids & physics, space, Me, porn, images, curses) 72 
Analyze writing (English poetry, American history, the Bible, forgery) 84 
Translate Russian (why Russian, early attempts, famous errors, Xerox) 86 


CHAPTER 4: ARTIFICIAL INTELLIGENCE 
Early seekers (dreams, the Greeks, Lull, Capek, Asimov, Wiener, Turing) 88 
Handle English (baseball, exceptions, story problems, beyond) 92 
Create intellect (successes, misinformation, the brain) 100 
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CHAPTER 5: COMPUTERIZING YOUR BUSINESS 


Hassles in computerizing (repairs, manuals, programs, data, workers) 106 
Business hardware (IBM versus Mac, how big to buy, AT clones, sharing) 107 
Business software (horizontal software, psychology, vertical software) 109 
Consultants (two awful truths, protect yourself) ys 
Accounting (five programs, what to buy, two kinds, hassles, posting) 112 


CHAPTER 6: ADVANCED PROGRAMMING USING BASIC 
Subroutines (simple subroutines, Yankee Doodle, love poem, old lady, nesting) 116 
Subscripts (single subscripts, solutions, multiple arrays, double subscripts) 123 
Fancy calculations (exponents, roots, absolute, round, strings, advanced) 132 
Style (beginning, efficiency, silliness, round-off, test, document) 147 
Fancy input (varying the INPUT statement, LINE INPUT, INPUT$, joysticks) 162 
PRINT USING (fundamentals, multiple numbers, %, final semicolon, advanced) 167 


Swapping (how to swap, shuffling, alphabetizing) 170 
Going on (ON...GO TO, ON...GOSUB, ON ERROR GO TO) 177 
Data files (sequential files, random access, create a data bank) 180 


CHAPTER 7: LOGO 


Turtle graphics (show the turtle, rotate, move, pen, background, extras) 192 
Math (arithmetic, roots, turtle numbers, random, round, fancy division, trig) 198 
Structures (words, lists, multiple commands, REPEAT, variables) 200 
Programs (square, pinwheel, rebuke, EDIT, flexible, recursion, countdown) 203 
Workspace (printouts, erasing the definitions, saving to disk) 210 


CHAPTER 8: PASCAL 


Fun (PASCAL pleasures, multiple writing, math, variables, comments) 212 
Logic (IF, loops, alternatives, GOTO, PROCEDURE) 218 
Advanced variables (CHAR, ARRAY, STRING) 226 
CHAPTER 9: DBASE 
Get comfortable (starting, math & strings, QUIT, improving the start-up) 230 
Create a file (name the file, complete the chart, input the data) 234 
See your data (simple lists, FOR, STRUCTURE, stats, printer, abort, beyond) 236 
Revise your data (EDIT, BROWSE, REPLACE, add extra records, delete) 243 
Switch files (USE, DIR, COPY, ERASE, modify the structure) 246 
Index files (how to index, how to find, hassles) 248 


Programs (simple programs, output, variables, INPUT, ACCEPT, WAIT, GET) 250 
Control the flow (IF, DO WHILE, CANCEL, EXIT, LOOP, the ultimate program) 256 


APPENDIX 1: ADVANCED VERSIONS OF BASIC APPENDIX 2: LISTS 
IBM PC 264 Themes 280 
Commodore 64 265 BASIC in a nutshell 281 
Atari 800 XL 268 Nifty languages 284 
Apple 2c 272 Coupon 286 
Apple Macintosh 275 

TRS-80 Color Computer 2 276 

TRS-80 Model 4 278 

Other computers 219 


toidiiddoodtiictcick CONTENTS OF VOLUME 3: SECRET CHILLS o0ajjronininitdinttot 
Chapter 1 chronicles the ridiculous rise of IBM, Apple, Commodore, Radio Shack, 
and Atari, and the sad fall of some of those companies and other famous Micro 
Makers. Chapters 2-7 turn you into a technical whiz at FORTRAN, COBOL, Ey oe 
Alternative Languages, Bit Fiddling, and Numerical Analysis. Chapters 8-9 help you 


make wise decisions about getting ahead, by analyzing Our Past and Your Future. 
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CHAPTER 1: 


FRUSTRATIONS 


STATE-OF-THE-BARF SOFTWARE 
The first modern computers were invented 45 years ago, in the 1940's. Since then, 
computer software has improved dramatically, but we still have a long way to go. 
Programmers who are proud of today's software call it "state of the art", but 
cynics still call it "state of the barf". Let's examine the successes and failures of 
today's software. 


SPEECH 

Computers have become quite good at speaking. For example, whenever I want to 
find out the time, I just press a button on my wrist watch, and its computer voice 
proudly proclaims the time in perfect English. Whenever I get lonely at night and 
want somebody to talk to me, I just press the watch's button and thrill to the sound 
of its soothing voice. It also acts as the world's most humane alarm clock: instead of 
giving an awful ring, its human voice says, "Attention, please! It's 7:30AM." Then 
it plays some jazzed up Bach. If I'm still sleepy and ignore the alarm, five minutes 
later it will say, "Attention, please! It's 7:35AM. Please hurry." It will also subject 
me to some more Bach. It will keep reminding me every five minutes, until I'm awake 
enough to turn off the alarm. 

You can buy that Vox Watch at Radio Shack for $39.95. 

You can also buy a talking car that tells you when it needs an oil change, a 
talking bathroom scale that makes cynical comments about how much your weight's 
gone up Since yesterday, and many other talking devices. You can even buy Coke 
from a talking vending machine that invites you to deposit your coins and then says 
"Thank you". 

The most impressive talking device ever invented is the Kurzweil Reading 
Machine, which reads books to the blind. It looks like a photocopying machine: just 
lay a book on top of the machine, and the machine reads the book to you, even if the 
book is laid down crookedly and has dirt on it and has multiple columns and photos 
and uses weird type. Alas, the machine costs $20,000, so that hardly anyone can 
afford it! To use such a machine, you must either be rich or live near a library 
owning the machine. 

Though computers are good talkers, they're not good listeners. No computer's 
been invented yet that will replace your secretary and let you dictate a letter toit. 
The computer devices currently on the market have tiny vocabularies, require you 
to pause after every word, and need to be "trained" to understand your accent. 


ART 
During the 1960's, many creative ideas were generated about how computers would 
someday create their own weird art, using a wild combination of formulas and random 
numbers, and unshackled by the bounds of human culture. 

Today, programs such as Mac Paint help people use computers to create art easily 
and cheaply. Unfortunately, the typical person who buys Mac Paint uses it to create 
the same kind of junk art that would be created by hand-—just faster and more 
precisely. That's the problem with computers: they make the production of 
mediocrity even easier and more glitzy. 
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MUSIC 
Computerized music is advancing rapidly. Now you can sit down at a portable 
piano-style keyboard (light enough to carry in one hand), bang out a tune, feed the 
tune to a computer, and have the computer edit out your errors, play the tune back 
using the tone qualities of any instrument you wish (or even a whole orchestra) , and 
print the score on paper. 

Such developments are shaking up the entire music industry. 

When you watch a TV commercial or movie, the background music that sounds like 
a beautiful orchestra or band is often produced by just a single person sitting ata 
computerized music synthesizer. The imitation of orchestral instruments is so exact 
that even professional musicians can't hear the difference. As a result, whole 
orchestras of musicians are now unemployed. 

Music synthesizers come in two categories. One kind's cheap ($25 to $500) and 
easy to use, but produces sounds that are tinny. The other kind produces beautiful 
sounds but costs a lot ($500 to $20,000) and is harder to learn to master. 
Programmers are trying to meld those two categories together. I wish they'd hurry 
up! 


ARTIFICIAL INTELLIGENCE 
You have what's called natural intelligence (except when your friends accuse you of 
having "natural stupidity"). The intelligence of a computer, by contrast, is 
artificial. Can the computer's artificial intelligence ever match yours? 

For example, can the computer ever develop the "common sense" needed to handle 
exceptions, such as a broken traffic light? After waiting at a red light for several 
hours, the typical human would realize the light was broken. The human would try to 
proceed past the intersection, cautiously. Would a computer programmed to "never 
go on red" be that smart? 

Researchers who study the field of artificial intelligence have invented robots 
and many other fascinating computerized devices. They've also been trying to 
develop computers that can understand ordinary English commands and questions, 
so you won't have to learn a "programming language". They've been trying to 
develop expert systems--computers that imitate human experts such as doctors and 
lawyers. 

Unfortunately, most research in the field of artificial intelligence is just a lot of 
hot air. For years, the researchers have been promising us that intelligent, 
easy-to-use English-speaking computers and robots would be available at low prices 
"any day now". After several decades of listening to such hoopla, I've given up 
waiting. The field of artificial intelligence should be renamed "artificial optimism". 

Whenever a researcher in the field of artificial intelligence promises you 
something, don't believe it until you see it and use it personally, so you can evaluate 
its limitations. 

If a computer seems to give intelligent replies to English questions posed by a 
salesman or researcher demonstrating artificial intelligence, try to interrupt the 
demo and ask the computer your English questions. You'll typically find that the 
computer doesn't understand what you're talking about at all, and that the demo was 
a cheap trick that works just with the peculiar English questions asked by the 
demonstrator. 
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COMPUTER LANGUAGES 
This volume discusses four popular computer languages: BASIC, LOGO, PASCAL, 
and DBASE. (Volume 3 discusses dozens of other languages that are harder. ) 

If I were stuck on a desert island with a computer, and a genie suddenly 
appeared and offered me any piece of software I wanted, I'd choose BASIC, because 
it's a powerful programming language that lets you accomplish practically everything 
easily. 

sone professional programmers are under the illusion that BASIC is just for kids; 
but it's not! The full power of the BASIC programming language is revealed in 
chapter 6, entitled "Advanced Programming Using BASIC". 

To program in BASIC, you must know all the letters of the alphabet, how to type 
them, and how to read and write words. Many kids are taught LOGO in elementary 
school, because LOGO lets you create cute graphics easily even if you don't know all 
the letters of the alphabet yet. LOGO also has the advantage of being extensible: it 
lets you invent your own commands and add them to LOGO, to create your own 
personalized version of LOGO! 

LOGO is available for all the popular computers. Most versions of LOGO were 
invented by Logo Computer Systems Incorporated (LCS!); but you might prefer the 
alternative versions developed by Terrapin, because Terrapin's a small, friendly 
company that can give you more personal help. Terrapin has developed versions of 
LOGO for the Apple 2e & 2c, Commodore 64,.and Macintosh. 

Although LOGO's great for graphics and for inventing your own commands, its 
strange notation makes it awkward at handling mathematical equations and business 
problems. For example, in BASIC you can type a formula such as— 


A=B+C 
but in LOGO you must type: 
MAKE "A :B+:C 


Notice how ugly that LOGO command looks! Notice you must put a quotation mark 
before the A but must not put a quotation mark afterwards! And look at those 
frightful colons! To understand why LOGO is so ugly—and why kids love it 
nevertheless—read chapter 7. 

PASCAL is "BASIC in a straitjacket". PASCAL resembles BASIC but forces you to 
organize your program as an outline. Some folks think PASCAL is "good discipline" ; 
others think it's silly. But even those whose think it's silly admit it's influential, 
since it inspired programmers to invent many other languages that are souped-up 
versions of PASCAL, and even the newest versions of BASIC have stolen some ideas 
from PASCAL! To form your own opinion of PASCAL, read chapter 8. 

DBASE is the most famous example of a language inspired by PASCAL. DBASE 
lets you easily write programs that manipulate databases. Because DBASE contains 
So many database commands, you'll find DBASE so convenient that you'll never want 
to use BASIC or PASCAL for databases again! On the other hand, for any task other 
than manipulating databases, DBASE is a drag: it's needlessly awkward and runs 
Slowly. DBASE is also expensive: it costs several hundred dollars, though 
independent companies are starting to develop cheap clones of DBASE. To master 
databases and DBASE, read chapter 9. 

I wish somebody would develop a language combining the best features of BASIC, 
LOGO, PASCAL, and DBASE. To find out how, read volume 3. 
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GREET THE WORLD 
You can attach your computer to a modem, attach the modem to the phone system, 
and communicate with other computers all over the world. 


POPULAR ONLINE SERVICES 
The most popular computer system for Americans to communicate with is 
Compuserve, which is in Ohio and owned by the same people who own H&R Block. Its 
main competitor is The Source, which is in Virginia and owned by Reader's Digest. 

Both of those computer systems contain many databases you can tap into. Some of 
those databases are for professionals. Others are for shopping, stocks, news, 
airline reservations, hobbies, games, and other forms of fun. 

Evening rates are low: less than $10 per hour. (Day rates are higher.) The 
charges are automatically billed to your Master Card or Visa. 

Compuserve and The Source have "branch offices" (staffed only by computers! ) 
in all major American cities. If you call the branch office nearest you, you'll 
automatically be connected to the headquarters in Ohio or Virginia, at no extra 
charge, so you can tap into their databases without paying for any long-distance 
calls. 

Besides letting you tap into databases, those computers let you swap information 
with other computerists, via electronic mai]. For example, if you and your friend Sue 
are both using Compuserve, Sue can send Compuserve a message addressed to you. 
Her message will stay on Compuserve's disk. The next time you try to use 
Compuserve, Compuserve will tell you that her message to you is waiting on disk. 
Compuserve will offer to read it to you. 

By using Compuserve and the Source, you can send messages to all your 
computerized friends and even to strangers. Compuserve users have organized 
themselves into clubs, called special interest groups (SIGs). Each SIG is devoted to 
a particular hobby, profession, or computer topic. If you join a SIG, you can read 
the messages sent by all other members of the SIG, and you can leave your own 
messages for them. 

You can also play with the CB Simulator, which imitates CB radio and lets you 
chat (via typed messages) with other wild people across the country. You can even 
give yourself a fake name ("handle"), to protect your anonymity. 

Users of Compuserve and The Source spend most of their time playing with the 
electronic mail, SIGs, and CB Simulator, rather than the databases. 

In addition to Compuserve and The Source, you can choose from other online 
services that are more specialized, such as MC/ Mai! (for electronic mail), The 
Official Airline Guides (for plane reservations), Dialog (for research librarians) , 
Dow Jones News /Retrieval Service (for stocks), Nexis (for news), and Lexis (for 
lawyers). Some of those specialized services are wonderful, addictive, and 
expensive. 


BULLETIN BOARDS 
A computerized bulletin board system (BBS) resembles Compuserve or The Source 
but is free. It emphasizes electronic mail, SIGs, and CB Simulators. 

It's run by a hobbyist from a computer in the hobbyist's own home or office. You 
Swap messages with the hobbyist and with all other callers on the system, as if they 
were pen pals. | 

You can choose from thousands of bulletin boards around the country. To find 
the bulletin boards in your neighborhood, ask your local computer store or computer 
club or school's computer department. 

Some bulletin boards are sexually explicit (heterosexual or gay). Some of my 
friends met wonderful people on bulletin boards—and married them! 
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DOWNLOADING 
Some clubs run bulletin boards that contain software you can copy. Copying from the 
bulletin board to your own computer is called downloading. If you write your own 
software and want to contribute it to the bulletin board, you do what's called 
uploading. 

Software that you may copy and use freely is called freeware. Other software, 
called shareware, comes with this restriction: although the author lets you copy and 
try it, the author says that if you like it you should mail the author a contribution. 
The suggested contribution is typically $25. 


BARRIERS 
Although Compuserve, The Source, and bulletin boards can all be fun, two barriers 
prevent them from being used by the average American. | 
® If you want to find a particular piece of information, you'll have a hard time 
figuring out which database to contact and how to extract the information from it. 
® Typing messages to people is tedious and impersonal. I'd rather chat on the 
phone. Most people can chat faster than they can type. 


VOICE MAIL 
Engineers are developing voice mail, It lets you record your voice onto a computer 
disk, so that other computerists can retrieve it. It acts as a high-tech answering 
machine. 
Unfortunately, a voice-mail message consumes lots of disk space; but as disks 
continue to get cheaper, the price problem will go away. 
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ANALYZE YOURSELF 


DEATH 
Terrence Lukas wrote a program that predicts when you'll die. The program makes 
the computer ask for your age and sex; then it asks about the life and health of your 
parents and grandparents, your weight, your personal habits (smoking, drinking, 
exercise, and sleep), your history of medical check-ups, your social class (your 
education, occupation, and income), and your lifestyle: urban or rural, single or 
married, aggressive or passive, and whether you use |seat belts. The computer 
combines all that information, to tell you when you'll probably die. 
The program uses the latest statistics from life-insurance companies and from 
medical research. Lukas wrote the program at the University of Illinois Medical Center. 
Running the program is fun. Each time you answer a question, the computer tells 
you how your answer affects its prediction. You see it prediction bob up and down, 
until the questions finally end, and the computer gives you its final prediction of when 
you'll die. It's like watching the early returns of a Presidential election, except the 
topic is you! . 

The computer pops out with surprising comments, based on the latest medical 
research. Here are some comments the computer prints: 


Professionals usually live longer, except musicians, architects, and pharmacists. Why 
this is true is unknown. 


Cooks, chefs, bakers, and other people who work at jobs associated with overeating 
have a lower life expectancy. 


Adults that sleep too much use too many hours in nonphysical activity. They may be 
unhappy and sleep as an escape, or may be ill. Depressed people have shorter life 
expectancies. 


Moderate drinking (up to two drinks per day) reduces stress and aids digestion. 
Heavy drinking, however, produces physiological damage. As for teetotalers, they 
may have rather rigid value systems and may undergo stress in maintaining them. 


The program is on pages 34-36 of the November 1977 issue of Kilobaud Microcomputing 
Magazine. 


BRAINWAVES 
A computer has been programmed to read your mind, by analyzing your brainwaves. A 
newspaper article described the program dramatically: you're an airplane pilot...your 
plane is going to crash...but you think "Up!", and the plane automatically goes back 
up!...because the plane is run by a computer that's reading your brainwaves! 

But what if the pilot is sadistic, and thinks "Down"? 

Anyway, the program isn't perfected yet. When the computer tries to distinguish 
brainwaves that mean up from brainwaves that mean down, it gets the right answer 
75% of the time. In other words, 25% of the time it goofs. I'd hate to be in a plane 
controlled by a computer that was having a bad day! 

Recently, the U.S. Government has shifted the emphasis of this research. The new 
emphasis is more practical: to make the computer ring a buzzer, when the pilot's 
brainwaves indicate the pilot is daydreaming. 
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HOROSCOPES 


If you hate horoscopes as much as I do, you'll love Adrian Thornton's program. It 
makes the computer print fake horoscopes. The computer asks when you were born, 
computes your sign, and then prints an enchanting remark. 

For example, if your sign turns out to be Capricorn, the computer will print: 


You are conservative and afraid of taking risks. You don't do much of anything and 
are lazy. There has never been a Capricorn of any importance. Capricorns should 
avoid standing still too long, as they tend to take root and become trees. 


If you're a Virgo, the computer will print: 


You are the logical type and hate disorder. This nitpicking is sickening to your 
friends. You are cold and unemotional and sometimes fall asleep while making love. 
Virgos make good bus drivers. 


You'll enjoy seeing your own "horror"scope. The complete program is on pages 
48-49 of the February 1979 issue of Kilobaud Microcomputing Magazine. 


PSYCHOTHERAPY 


In 1966, Joseph Weizenbaum programmed the computer to act as a psychotherapist. 
On the keyboard, you type whatever thoughts come to your mind, and the computer 
will give you therapy. When typing on the terminal, feel free to use whatever words 
you wish— you don't have to use a "computer language". 

The most amazing thing about the program is that it does a decent job of therapy, 
even though the computer doesn't know what you're talking about! Weizenbaum's 
program contains the definitions of only a handful of words; but if you use words 
the computer doesn't know, the computer does an amazingly good job of "faking". 
For example, if you say, "My junkapoo is like my iliabop", the computer will continue 
the conversation by asking you, "In what way?" even though the computer doesn't 
know what a junkapoo or an iliabop is. 

Here's a conversation between his computer and a patient. 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


‘COMPUTER: 
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Men are all alike. 
In what way? 


They're always bugging us about something or other. 
Can you think of a specific example? 


Well, my boyfriend made me come here. 
Your boyfriend made you come here. 


He says I'm depressed much of the time. 
I am sorry to hear you are depressed. 


It's true. I am unhappy. 
Do you think coming here will help you not to be unhappy? 


I need some help, that much seems certain. 
What would it mean to you if you got some help? 


Perhaps I could learn -to get along with my mother. 
Tell me more about your family. 


My mother takes care of me. 
Who else in your family takes care of you? 


My father. 
Your father. 


You are like my father in some ways. 
What resemblance do you see? 


PATIENT: You are not very aggressive, but I think you don't want me to notice that. 
COMPUTER: What makes you think I am not very aggressive? 


PATIENT: You don't argue with me. 
COMPUTER: Why do you think I don't argue with you? 


PATIENT: You are afraid of me. 
COMPUTER: Does it please you to believe I am afraid of you? 


PATIENT: My father is afraid of everybody. 
COMPUTER: What else comes to your mind when you think of your father? 


PATIENT: Bullies. 
COMPUTER: Does that have anything to do with the fact that your boyfriend made you 
* come here? 


Like the famous psychotherapist Carl Rogers, the computer asks probing questions 
that make the patient open up, but it never gives advice: the patient must discover 
the truth for herself. | 

I'll explain exactly how the program works, so you can become a psychotherapist 
yourself, and get hundreds of thousands of dollars by bilking your patients. 

The computer begins by replacing some of the patient's words: 


Word that the 
patient typed Replacement 


mom mother 
dad father 
dont don't 
cant can't 
wont won't 
dreamed dreamt 
dreams dream 

I you@ : 
me you 

you I 

my your 
your my 
myself yourself 
yourself myself 
I'm you're 
you're I'm 

am are@ 
were was 


For example, the sentence Wel/, my boyfriend made me come here becomes Well, your 
boyfriend made you come here. 

The computer hunts through the revised sentence or paragraph for one of these 
keywords.... 


CATEGORY 8: computer, computers, machine, machines 

CATEGORY 7: name 

CATEGORY 6: alike, like, same 

CATEGORY 5: remember 

CATEGORY 4: dreamt 

CATEGORY 3: dream, if 

CATEGORY 2: everybody, everyone, nobody, was, your 

CATEGORY 1: always 

CATEGORY 0: are are@, because, can, certainly, deutsch, espanol, francais, hello, 


how, I, I'm, italiano, maybe, my, no, perhaps, sorry, what, when, 
why, yes, you@, you're 


If the computer finds severa/ of those keywords, it chooses the one in the highest 
category; if they lie in the same category, it chooses the one the patient typed first. 
Then it looks up the keyword in this phrasebook: 
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Patient's keyword Computer's reply 


alike In what way? 
always Can you think of a specific example? 
are 
AReCw hrs Why are you interested in whether I am...or not? 
are... Did you think they might not be...? 
are@ 
are you... Do you believe you are...? 
are Why do you say "am"? 
because Is that the real reason? 
can 
Cane: You believe I can..., don't you? 
CaneyOue cr Whether or not you can...depends on you more than on me. 
certainly You seem quite positive. 
computer Do computers worry you? 
computers Do computers worry you? 
deutsch I am sorry, I speak only English. 
dream What does that dream suggest to you? 
dreamt... Ree ty iy 62 OR Ue ae ae ag es ne 
espanol I am sorry, I speak only English. 
everybody Really, everybody? 
everyone Really, everone? 
hello How do you do— please state your problem. 
how sh as Win do yo es Bia ae ono ee 
I 
I remind you of In what way? 
I are... What makes you think I am...? 
I...you Why do you think I...you? 
I We were discussing you— not me. 
EA Do you think it's likely that...? 
Uae: What makes you think I am...? 
like 
(am,is,are,was)...like In what way? 
“dike. a igetlavdiiferent) Key womi sini ai eure ania minsete a Ona 
machine Do computers worry you? 
machines Do computers worry you? 
maybe You don't seem quite certain. 
My... | Why are you concerned Over iry yt 6 2 ese eee 
name I am not interested in names. 
no Are you saying "no" just to be negative? 
perhaps. You don't seem quite Contain ia) 0 ees 
remember 
you remember... Do you often think of...? 
do I remember... Did you think I would forget...? 
_ipemember (get a ‘different keyword) Ay ieee eae es 
same In what way? 
sorry tiv 61) Please don t apologize is Jie iiees one eee eee seed 
was 
was you... What if you were...? 
you was Were you really? 
was lI... Would you like to believe I was...? 
was (get a different keyword) 
what Why do you ask? 
when Why do you ask? 
why 
why don't I... Do you believe I don't...? 


why can't you... Do you think you should be able to...? 
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yes You seem quite positive. 

you@ 
you (want,need)... What would it mean to you if you got...? 
you are...(sad,unhappy,depressed,sick) I am sorry to hear you are (sad,etc.). 
you are...(happy,elated,glad,better) How have I helped you to be (happy,etc.)? 


you (feel,think,believe,wish) you Do you really think so? 
you (feel,think,believe,wish)...I (use the keyword "I" instead) 
you are... Is it because you are...that you came to me? 
you (can't,cannot)... How do you know you can't...? 
you don't... Don't you really...? 
you feel Tell me more about such feelings. 
VOUR ead Perhaps in your fantasy we...each other. 
your 
your...(mother,father ,sister,brother,wife,children) Tell me more about your family. 
your... VY Our. 
you're (treat as "youG are") 


For example, if the keyword is sorry, the computer looks up sorry in the phrasebook, 
which says to print "Please don't apologize." 

Suppose the patient types, "If the job is lousy, he'll die." The keyword is /f. In the 
phrasebook, /f is followed by three dots, which stand for the part of the clause that 
comes after /f, which is "the job is lousy". (The computer figures out where the clause 
ends by looking at the punctuation.) The phrasebook says to print "Do you think it's 
likely that the job is lousy?" 

The symbol @ serves just to locate the correct keyword in the phrasebook. Thereafter, 
it's ignored. 

Here's what happens if the keyword is you@. After locating you@ in the phrasebook, 
the computer ignores the @. If the patient's revised sentence contains you want... or 
you need..., the computer prints "What would it mean to you if you got...?" If the 
patient's sentence contains you are...sad, the computer prints "I am sorry to hear you 
are sad." 

For each reply in the phrasebook, Weizenbaum stored a list of alternatives. For 
example, here are the alternatives to "Please don't apologize": 


Apologies are not necessary. 
What feelings do you have when you apologize? 
I've told you that apologies are not required. 


While chatting with the patient, the computer keeps track of which replies it has printed 
already, and uses the alternatives to avoid repetition. 

If the patient's statement doesn't contain a keyword, the computer may give one 
of these replies: 


I am not sure I understand you fully. 

Please go on. 

What does that suggest to you? 

Do you feel strongly about discussing such things? 


Or it may take a second look at earlier parts of the conversation, retrieve a clause 
that contained your..., and print one of these replies: 


Let's discuss further why your.... 
Earlier you said your.... 
Does that have anything to do with the fact that your...? 


For example, it may retrieve the clause Your boyfriend made you come here and print: 
Does that have anything to do with the fact that your boyfriend made you come here? 


The program was written at the Massachusetts Institute of Technology (MIT). The 
programmer, Joseph Weizenbaum, named the program "Eliza", to honor Eliza Doolittle— 
the woman in My Fair Lady and Pygmalion, who learned to speak English and have a 
good conversation. 
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Some people think Weizenbaum's program shows that computers can communicate as 
well as psychotherapists. But Weizenbaum himself holds the opposite view; he believes 
the program shows that psychotherapists communicate as poorly as computers. 

You can buy a disk called Golden Oldies, which contains imitations of four classic 
programs: Adventure, Pong, Life, and Weizenbaum's Eliza. The disk is published by 
Software Country, distributed by Electronic Arts, costs about $35, and comes in versions 
for the Apple 2e & 2c, Macintosh, Commodore 64, Amiga, Atari 800 XL, and IBM PC. 

After Weizenbaum invented Eliza, other programmers invented improvements. For 
example, in one of the improved versions, whenever the computer doesn't understand 
you, it reacts like the typical rich psychotherapist— it bluffs and says: 


I understand fully. Please go on. 


The computer never really understands what you say. For example, in one version, 
if you say "My, my, my!", the computer will reply: 


Tell me more about your your your. 


Radio Shack's headquarters phoned me, and asked for permission to use my 
explanation of Weizenbaum's program. I agreed, whereupon Radio Shack invented and 
sold a version that makes the computer ta/k— by using a voice synthesizer. You'll freak 
out when you hear the computer's voice giving you therapy. Radio Shack's program 
costs $15, comes on tape, and requires a model 1 or model 3 TRS-80. To hear the voice, 
you must buy the voice synthesizer. (But even if you don't buy the voice synthesizer, 
the program will impress you.) 

The cheapest way to get a version of Eliza is to buy a book called BASIC Computer 
Games Volume 2 (TRS-80 edition). Get it at your local Radio Shack store. It costs just 
$7 and includes 84 programs— one of which is a version of Eliza written in BASIC. That 
version of Eliza isn't as good as the original; but since it's cheap and written in BASIC, 
you'll enjoy buying it for self-study. Here's part of a conversation between that version 
and a patient: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


PATIENT: 


COMPUTER: 


I am not the greatest conversationalist. 
Do you believe it is normal to be not the greatest conversationalist? 


Yes. 
I see. 


How can you see without any eyes? 
Don't you believe that I can see without any eyes? 


No. So prove it. 
Are you saying "no" just to be negative? 


Absolutely not. 
You are being a bit negative. 


So you want to fight, do you? 
We were discussing you— not me. 


Don't back down, friend. 

Why do you bring up the topic of friends? 
I don't have any friends. 

Don't you really have any friends? 


No, not really. 
Why not? 


Unfortunately, most versions of Eliza are passive. The typical Eliza program works 
well only if the patient's talkative. If the patient doesn't say much, the program can't 
react to much and is useless. 
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Recently, John Holland has invented a better version of Eliza. His version is more 
aggressive. He calls it "Analiza 2" (because it "analizas" the patient). If the patient's 
too quiet or too boring or too uninformative, Analiza 2 makes the computer give the 
patient a "jolt", by asking an electrifying question or making a ridiculous Zen-like 
statement. For example, the computer might ask, "Did you ever try to commit suicide 
with a hammer?" Here's a list of the computer's favorite "jolts": 


Nasty questions the computer asks 


Did you ever try to commit suicide with a hammer? 
Is your interest in sex still not very strong? 
Do you want to know what I suspect? 


Prying questions the computer asks 


Tell me, what is your worst fear? 

Why don't you tell me about your first romance? 
I want to know about your lifestyle. 

Tell me what is troubling you. 

Honestly now, what is your biggest concern? 


Ridiculous statements the computer makes 
With strong drugs you can learn to control your concern! 


You certainly are curious! 
And you are obstinate! 


Complaints the computer makes 
You seem inhibited. 


This isn't really very exciting. 
Getting started is often difficult. 


Comments the computer makes about timing and complexity 
Well, time is almost up. Is there anything else you want to discuss? 


I hate to bring this up, but you still owe me $53.00 from your last visit! 

Last time you were extremely inquisitive. Have you abandoned seeking simple solutions? 
Last time you were difficult to understand. Were you trying to confuse me? 

Let's keep it simple this time. 

Say, I am having trouble with your long sentences. Keep it simple. I am only human. 


Yes, your patient will love to hear the computer says it's "only human". You can get 
Analiza 2 for $50 from Supersoft (Box 1628, Champaign, IL 61820, 217-359-2112). It runs 
on most computers that have the CP/M operating system. 
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What if the world becomes full of computerized psychoanalysts, and there aren't 
enough patients to keep them all busy? Kenneth Colby solved that problem: in 1971 
at Stanford University, he programmed a computer to be a crazy patient. Specifically , 
he programmed his computer to be a paranoid schizophrenic. In the following 
conversations, psychiatrists interrogate his computer. 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 


PSYCHIATRIST: 


COMPUTER: 
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CONVERSATION 1 


How long have you been in the hospital? 
About a week. 


Are you depressed? 
No. 


Were you taking drugs? 
No. 

What is your problem? 
People make me nervous. 
How do they do that? 
They stare at me. 

Why? 

Maybe they don't like the way I look or something. 


Do you look unusual in some way? 
Why are you interested in my looks? 


Because you said people stare at you. 
Well, sometimes. 


How do you get along with people? 

I don't communicate very much with the others. 

Why not? 

They don't realize what's going on most of the time. 

What is going on? 

Do you know how the underworld operates? 
CONVERSATION 2 


How are you today? 
OK. 


What is your name? 
My name is Frank Smith. 


How old are you? 
Twenty-eight. 
Are you married? 
No. 


What sort of work do you do? 
I work in the post office. 


Why are you in the hospital? 
I shouldn't be here. 


Who brought you here? 
The police. 


What trouble did you have with the police? 
Cops don't do their job. 


What do they do instead? 
Cops arrest the wrong people. 


PSYCHIATRIST: 


They arrest the right ones sometimes. 


COMPUTER: The law should get those Italian crooks. 
PSYCHIATRIST: Are you Italian? 
SOMPUTER: My background is British but I was born in this country. 
PSYCHIATRIST: Do you know any Italian crooks? 
COMPUTER: I try to avoid the underworld. 
PSYCHIATRIST: Are you afraid of the underworld? 
COMPUTER: The Mafia are the worst gangsters. 
PSYCHIATRIST: Are you connected with the Mafia? 
COMPUTER: You know, they know me. 
PSYCHIATRIST: How do they know you? 
COMPUTER: They spy on me. 
PSYCHIATRIST: Why do they? a 
COMPUTER: They want to get false evidence to frame me. aD = 
: Ag 
PSYCHIATRIST: What do they have against you? Ly. 
COMPUTER: They are out to get me. IO 
m 
PSYCHIATRIST: What for? ars 
COMPUTER: I have incriminating evidence against the Mafia. >s 
PSYCHIATRIST: Are you sure of all this? Mp 
COMPUTER: You don't believe me? a Foc 
CONVERSATION 3 ae 
2) 
PSYCHIATRIST: Tell me something about yourself. ae; ~ 
COMPUTER: I went to the track at Bay Meadows a while back. 7 — 
= 
PSYCHIATRIST: What happened there? mm 
COMPUTER: There's a lot of crooked gambling there. az 
NO oeah 
PSYCHIATRIST: Why do you think the gambling is crooked? eee: 
COMPUTER: I have worried that gangsters have too much power in this country. 2 e 
CONVERSATION 4 ON 
PSYCHIATRIST: How do you like the hospital? y a 
COMPUTER: I don't communicate very much with others. 2 & 
PSYCHIATRIST: Do other people at the hospital get on your nerves? 0 a 
COMPUTER: I shouldn't have come here. u rm 
PSYCHIATRIST: Why do you say you shouldn't have come here? o & 
COMPUTER: They made me come here. ut = 
The computer's response depends on how much FEAR, ANGER, and MISTRUST it has a =! 
at the moment. Those three variables are affected by what the psychiatrist says. For nV 


example, if the psychiatrist gives the computer a compliment, the FEAR, ANGER, and 
MISTRUST usually decrease. But if MISTRUST is already high, the computer interprets 
the compliment as a sly attempt at pacification, and its ANGER increases instead of 
decreasing. ANGER can also be increased by questions that humiliate (Te// me about your 
sexlife) or imply subjugation (Perhaps you should stay in the hospital longer). 

To prove his computer is paranoid, Colby had 8 psychiatrists interview it and also 
interview paranoid humans via teletypewriters. Transcripts of all the interviews were 
sent to psychiatrists around the country, who were asked to judge whether each interview 
was with a human or with the computer. The psychiatrists were unable to tell the 
difference: only 51% of their guesses were correct. 

Some computerniks got the "brainstorm" of hooking Weizenbaum's computer to Colby's, 
to see whether the computerized psychotherapist could cure the computerized 
schizophrenic. The experiment was a disaster: both computers were so passive that the 
discussion rapidly degenerated into trivia. 

But so do conversations between humans! 


(17) Amazing applications: analyze yourself 


WELCOME TO 


{inion =| CHAPTER 2: ELECTRONIC PLEASURES 


GRAY LEVELS 

You can express every black-and-white photograph as a table of numbers. Each number 
in the table represents the darkness of a different point— the higher the number, the 
darker the point. The "darkness numbers" are called gray levels. To feed a picture into 
the computer, type in the table of gray levels. Or aim a special camera at the object you 
want pictured; the camera system will automatically compute the gray levels and send 
them to the computer via a wire. 

You can program the computer to change the gray levels in any weird way you wish, 
and draw the result. Back in the 1960's, the Computer Technique Group of Japan did 
this to an ordinary photograph of John Kennedy: 


Shot Kennedy Diffused Kennedy 


Kennedy in a Dog 
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Here's what the group didtoa I did this with the help of a computer: 
photograph of Marilyn Monroe: 


Monroe in the Net 
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The Pin-Up has these specifications.... 


scene: a scantily clad girl sitting on a stool 


4 different gray levels 
4 different symbols (1 for each gray level): a blank, a period, an asterisk, and $ 


1537 symbols altogether (53 rows x 29 columns) 


In the specification, the numbers are small, yet the picture is clear. To obtain the 


clarity, I did non-computerized fanagling. | 
At Bell Telephone Laboratories, Knowlton & Harmon produced a picture with much 


larger specifications.... 


scene: two seagulls flying in the clouds 

16 different gray levels 

141 different symbols (for each gray level there are several symbols; the computer 
chooses among them at random) 

11616 symbols altogether (88 rows x 132 columns) 


Instead of using blanks, periods, asterisks, and $, they used cats, battleships, 
swastikas, and other weird shapes. Here are the 141, listed from lightest to darkest, 
with some repetitions: . 
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The picture is several feet long. Seen from a distance, it looks like this: 


Gulls 
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Here's a close-up view of part of one of the gull's wings: 
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If you don't like seagulls, how about Mona Lisa? 
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In 1971, Michael Hord made the computer turn photographs into artistic sketches. 
Here's what the computer did to a photograph of his boss, and to a photograph of a 
colleague's girlfriend: 


Boss Woman 


To draw each sketch, the computer's camera scanned the original photograph, and 
_found the points where the photograph changed dramatically from light to dark. 
Then, on a sheet of paper, it plotted those points; and through each of those points, 
it drew a short line perpendicular to the direction in which the original photograph 
darkened. 


More precisely, here's what the computer did....It looked at four adjacent points 
on the original photograph: 
AB 
GD 


It computed the darkness of each of those points. Then it computed the "darkening in 
the X direction", defined as: 


(the darkness at B) + (the darkness at D) - (the darkness at A) - (the darkness at C) 
Then it computed the "darkening in the Y direction", defined as: 

(the darkness at A) + (the darkness at B) - (the darkness at C) - (the darkness at D) 
Then it computed the "overall darkening", defined as: 

(the darkening in the X direction)* + (the darkening in the Y direction)? 


If the overall darkening there turned out to be large, the computer sketched a short 
line, in the vicinity of the points ABCD, and perpendicular to the direction of darkening. 
More precisely, the line's length was 1, and the line's slope was: 


_ the darkening in the X direction 
the darkening in the Y direction 
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TRANSFORMATION 
Here's how to make an L slowly become a V. Notice that the letters L and V are 
both made by connecting three points: 


il as 
Lee ou 


Let 1" be the point halfway between 1 and 1'; let 2" be halfway between 2 and 2'; 
and let 3" be halfway between 3 and 3'. Then 1", 2", and 3" form a shape that's 
halfway between an L and a V: 


il ip la of 
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The process can be extended further: 


eae. Way 


Using that method, the Computer Technique Group of Japan gradually turned a 
running man into a Coke bottle, and then into Africa: 


Running Cola is Africa 


The group turned this head into a square: 


Return to a Square 


The head on the left returns to a square by using arithmetic progression: the lines are 
equally spaced. The one on the right uses geometric progression instead: the lines 
are close together near the inside square, but further apart as they expand outward. 
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Csuri & Shaffer exploded a hummingbird: 


Chaos to Order 


The hummingbird at the far right was obtained from the one at the far left, by 
moving each line a random distance and in a random direction (between 45° and -45°). 
Computers can make movies. The best movie ever made by a computer is called 
Hunger (or La Faim). It was made under the auspices of the Canadian Film Board. 
It's a 10-minute cartoon, in color, with music; but it goes far beyond anything ever 
done by Walt Disney. It uses the same technique as Running Cola is Africa: it shows 
objects turning into other objects. It begins by showing a harried, thin executive at 
his desk, which has two phones. One of the phones rings. He answers it. While he's 
talking on that phone, his other phone rings. To talk on both phones simultaneously , 
his body splits in two. (How does a single body become two bodies? By using the same 
technique as turning a running man into a coke bottle.) On the other side of his desk 
is an armchair, which turns into a secretary, whose head turns into a clock saying 5PM, 
which tells the executive to go home. So he stretches his arms in front of him, and 
becomes his car: his hands become the headlights, his arms become the front fenders, 
his face becomes the windshield: you have to see it to believe it! He drives to a 
restaurant and gets the waitress, who turns into an ice-cream cone; then he eats her. 
As the film progresses, he becomes increasingly fat, lustful, slothful, and miserable. 
In the end, he falls into hell, where he's encircled by all the poor starving naked 
children of the world, who eat his flesh. Then the film ends. (Don't see it before 
eating dinner!) It combines computer art and left-wing humanitarian politics, to create 
an unforgettable message. 
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ORDER VERSUS DISORDER 
Computer artists are starting to believe that art is a tension between order and disorder. 
Too much order, or too much disorder, will bore you. For example, in Chaos to Order, 
the hummingbird on the left is too orderly to be art. The hummingbird on the right is 
more interesting. 

Consider Gulls (page 21). Seen from a distance, it's an orderly picture of gulls. 

Seen up close, it's an orderly picture of a cat or battleship or swastika. But from a 
middling distance, it looks like disorderly wallpaper: the symbols repeat, but not in 
any obvious cycle. That element of disorder is what makes the picture interesting. 

At first glance, Pin-Up (page 19) is just a disorderly array of periods, asterisks, 
and dollar signs. At second glance, you see order: a girl. Art is the formation of order 
from disorder. 

A first glance at Monroe in the Net (page 19) shows order: a piece of graph paper. A 
second glance shows disorder: some of the graph's lines are inexplicably bent. A third 
glance shows order: Marilyn Monroe's face pops out at you. Her orderly face is formed 
from the disorder of bent lines. 

Return to a Square (page 24) uses arithmetic progression and geometric progression 
to create an over-all sense of order, but the basic elements are disorderly: a head that's 
bumpy, and a panorama of weird shapes that lie uncomfortably between being heads and 
Squares but are neither. 

Many programs create disorder by random numbers. Chaos to Order uses random 
numbers to explode the hummingbird. Gu//is uses random numbers to help choose among 
the 141 symbols. | 

An amazing example of random numbers is this picture by Julesz & Bosche: 


To your eyes, the picture seems quite ordered. Actually, it's quite disordered. One 
pie-shaped eighth of it is entirely random; the other seven eighths are copies of it. 
The copying is the only element of order, but very powerful. Try this experiment: 
cover seven-eighths of the picture. You'll see that the remaining eighth is totally 
disordered, hence boring. 

That program imitates a child's kaleidoscope. Do you remember your childhood days, 
when you played with your kaleidoscope? It was a cardboard "telescope" that contained 
a disorganized pile of colored glass and stones, plus a series of mirrors that produced 
eight-way symmetry, so that what you saw resembled a giant multicolored snowflake. 
The program by Julesz & Bosche uses the same technique, computerized. Hundreds 
of programmers have imitated Julesz & Bosche, so that today you can buy kaleidoscope 
programs for your Apple, Radio Shack, etc. Or try writing your own! 
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Take this test: 
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One of those is a famous painting (Composition with Lines, by Piet Mondrian, 1917). 
The other was done by a computer (programmed by A. Michael Noll in 1965). Which 
one was done by the computer? Which one do you like best? 

The solution is on the next page, but don't peek until you've answered! 
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The computer did the top one. 
The programmer surveyed 100 people. Most of them (59) thought the computer 


did the bottom one. Most of them (72) preferred the top one— the one that was 


actually done by the computer. 
The test shows that people can't distinguish computer art from human art, and 


that the computer's art is more pleasing than the art of a famous painter. 

The computer's version is more disordered than Mondrian's. The computer created 
the disorder by using random numbers. The survey shows that most people like disorder: 
Mondrian's work is too ordered. It also shows that most people mistakenly think the 
"computer" means "order". 


ENVELOPES 
Try this experiment. On a piece of paper, put two dots, like this: 


6 @ 
Bug 1 Bug 2 
The dots represent little insects, or "bugs". The first bug is looking at the second bug. 
Draw the first bug's line of sight: 
O—__-—-_----_—__ 
Bug 1D Line of stght™) Bug-2 
Make the first bug take a step toward the second bug: 


ae eB 
Bug 1 Bug 2 


Make the second bug run away, in any direction: 


—__{j}-—________—_—_—_—_--_-——- 
Bug 1 
® 


Bug 2 


Now repeat the entire process. Again, bug 1 looks at bug 2; draw its line of sight: 


Bug 2 
Bug 1 moves toward bug 2: 
Bug 1 an 
Bug 2 
Bug 2 keeps running away: 
Bug 1 ai 
@ 
Bug 2 
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If you repeat the process many times, you get this: 


Bug 2 


The "motion of bug 1" looks like a curve. (In fact, it's a parabola.) The "curve" is 
composed of many straight lines— the lines of sight. That's how to draw a fancy curve 
by using straight lines. 

Each straight line is called a tangent of the curve. The entire collection of straight 
lines is called the curve's envelope. Creating a curve, by drawing the curve's envelope, 
is called stitching the curve— because the lines of sight act as threads, to produce a 
beautiful curved fabric. 

You can program the computer to draw those straight lines. That's how to make the 
computer draw a fancy curve— even if you know nothing about "equations of curves". 

To get a curve that's more interesting, try these experiments: 


What if bug 2 doesn't walk in a straight line? What if bug 2 walks in a curve instead? 
What if bug 1 goes slower than bug 2, and takes smaller steps? 
What if the bugs accelerate, or slow down? 


What if there are THREE bugs? What if bug 1 chases bug 2, while bug 2 chases bug 3, 
while bug 3 chases bug 1? 


What if there are MANY bugs, all chasing each other, and their starting positions are 
random? . 


What if there are just two bugs, but the bugs are Volkswagens, which must drive on 

a highway having nasty curves? Show the bugs driving on the curved highway. 

(Their lines of sight are still straight; but instead of moving along their lines of sight, 
they must move along the curve that represents the highway. ) 


Bug 1 


Before: 


Bug 2 


What if each bug has his own highway, and all the bugs stare at each other? 
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Here are some elaborate examples. 


Four bugs chasing each other: 
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The next example, called Compelling, appeared in the famous book and movie, The Dot 
and the Line. (Norton Juster made it by modifying artwork that had appeared in 
Scripta Mathematica.) It resembles the example above, but makes the 4 bugs start as 
a rectangle (instead of a square), and makes the bug in the upper left corner chase 
the bug in the opposite corner (although /ooking at a nearby bug instead). 


COMPELLING 
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Enigmatic (from The Dot and the Line) makes 3 bugs chase each other, and a fourth 
bug stay motionless in the center: 


ENIGMATIC 


(31) Pleasures: classic computer art 


Sails (by me) has 14 bugs chasing each other 
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Elliptic Motion (by my student Toby D'Oench) has 3 bugs staring at each other, as 
they travel on 3 elliptical highways: 
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Archimedean Spiral (by Norton Starr) has bugs on circles; the bugs stare at each 
other but don't move: 


FAMOUS ART 
These famous works of computer art were done back in the 1960's: 


Cubic Interpolation 
by Schmitt & Gaines 
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Hummingbird The Snail | 
by Kerry Strand by Kerry Strand 


Krystallos Symplexity 
by Strand & Jenkins by Strand & Jenkins 
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WHAT'S ART? 
To create art, write a weird program whose consequences you don't fully understand, 
tell the computer to obey it, and look at the computer's drawing. If the drawing looks 
nice, keep it and call it "art"— even if the drawing wasn't what you expected. Maybe 
it resulted from an error, but so what? Anything interesting is art. 

If the drawing "has potential" but isn't totally satisfying, change a few lines of the 
program and see what happens— or run the program again unchanged and hope 
the random numbers will fall differently. The last thing to invent is the title. 
Whatever the drawing reminds you of becomes the title. 

For example, that's how I produced Kite and Sa//s. I did not say to myself, "I want 
to draw a kite and sails". I just let the computer pick random starting points for the 
bugs and watched what happened. I said to myself, "Gee whiz, those drawings remind 
me of a kite and sails." So I named them Kite and Sai/s, and pretended that I chose 
those shapes on purpose. 

That method may seem a long way from DaVinci, but it's how most computer art gets 
created. The rationale is: don't overplan...let the computer "do its own thing"; it will 


give you art that escapes from the bounds of human culture and thereby expands your 
horizons. 


NEW STYLE 
Computer art is changing. The "old style'"— which you've been looking at— consists 
of hundreds of thin lines in mathematical patterns, drawn on paper and with little 


regard for color. The "new style" uses big blobs and streaks of color, flashed on a 
T.V. tube or film, which is then photographed. 
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FAMOUS EXAMPLES 
The computer drew these three-dimensional surfaces: 


Three Peaks 


by John Szabo ee A ate 
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Those were done tor the sake of art. These were done for the sake of science: 


Population Density in the U.S. Rotation and Revolution 
by the Harvard University Mapping Service of a Communication Satellite 
by Bell Telephone Laboratories 


The hardest part about three-dimensional drawing is figuring out which lines the 
computer should not show, because they're hidden behind other surfaces. 
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A three-dimensional drawing can become part of a much larger project— such as 
building a road: 


At the Drawing Board 
by Nigel Hawkes (abridged) 

Road building is a complex operation, involving hundred of separate problems. Since 
1959 the Swedish Government and the firm Nordisk ADB of Stockholm have collaborated 
on a program for mechanizing these calculations. As early as 1963, more than’ 8000 
miles of road had been planned by the system, at a savings at the planning stage of 20%. 

The process starts with a series of aerial photographs of the area over which the 
road will run. From these, the rise and fall of the land can be analyzed stereoscopically 
with remarkable accuracy— said to be within four inches. The information from the 
pictures is fed into the computer, which calculates the amount of "cut" and "fill" needed, 
and how earth moved from one point can be used as fill at another. The computer allows 
for variations in the cost of the land, in the total length of the route, and other factors. 
By taking these into account, it devises the cheapest possible route between two points. 

On a graphics terminal, the computer draws pictures of what the road will look like 
at one-meter intervals. By filming each of these pictures as a separate frame, it's 
possible to "drive" along the imaginary road before it's built. This isn't a trivial exercise; 
occasionally, slopes and bends conspire to give the driver the illusion that the road is 
slipping sideways away from him. By observing this effect before the road's built, it 
can be avoided in the final design. 


COORDINATES 
Try this experiment. Put your finger on the bridge of your nose (between your eyes). 
Now move your finger 2 inches to the right (so that your finger is close to your right 
eye). Then move your finger 3 inches up (so that your finger is near the upper . 
right corner of your forehead). From there, move your finger 8 inches forward (so 
that your finger is 8 inches in front of your forehead). 

Your finger's current position is called (2,3,8), because you reached it by moving 
2 inches right, then 3 inches up, then 8 inches forward. The 2 is called the X coordinate; 
the 3 is called the Y coordinate; the 8 is called the Z coordinate. 

You can reach any point in the universe by the same method! Start at the bridge of 
your nose, and get to the point by moving right (or left), then up (or down), then 
forward (or back). 

The distance you move to the right is called the X coordinate (if you move to the 
left instead, the X coordinate is a negative number). The distance you move up is called 
the Y coordinate (if you move down instead, the Y coordinate is a negative number). 
The distance you move forward is called the Z coordinate (if you move back instead, the 
Z coordinate is a negative number). 
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DRAWING AN OBJECT 
To draw a picture of a three-dimensional object, put the object in front of you, and 
then follow these instructions.... 

Pick a point on the object. (If the object has corners, pick one of the corners. ) 
Figure out that point's X, Y, and Z coordinates (by putting your finger on the bridge 
of your nose and then seeing how far you must move your finger right, up, and foward 
to reach the object). 

Then compute the point's projected X coordinate (which is X/Z) and the point's 
projected Y coordinate (which is Y/Z). For example, if X is 2 and Y is 3 and Z is 8, 
the projected X coordinate is 2/8 (which is .25) and the projected Y coordinate is 3/8 


(which is .375). On graph paper, plot the projected X coordinate and the projected Y 
coordinate, like this: 
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Go through the same procedure for every point on the object (or at least for the corners). 
Connect the dots and— presto! — you have a three-dimensional picture of the object! And 
the picture is mathematically accurate! It's what artists call a "true perspective drawing". 
To make the picture look traditionally beautiful, place the object slightly to the left of 
you and slightly below your eye level, so that all the X and Y coordinates become negative. 


COMPUTERIZING THE PROCESS 
You can program the computer so that if you input a point's X coordinate, Y coordinate, 
and Z coordinate, the computer will calculate the projected X coordinate (from dividing X 
by Z) and the projected Y coordinate (from dividing Y by Z) and plot the point on the 
computer's screen (by using high-resolution graphics). 

The easiest way to draw three-dimensional pictures is to buy a special three-dimensional 
arm that attaches to an Apple computer. To draw a picture of an object, move the 
mechanical arm until the arm's finger touches the object. Immediately the arm's software 
computes the X coordinate, Y coordinate, and Z coordinate of the touched point; you don't 
need a ruler! It also computes the projected X coordinate and the projected Y coordinate 


and plots the point on your television. If you have a graphics printer, the software also 
plots the point on your printer's paper. 
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MAC PHINT 


FUNDAMENTALS 
The most popular art software is Mac Paint. It lets you create art easily. It was 
invented by Bill Atkinson at Apple Computer Inc. It runs only on the Mac. It used to 
be included free with the Mac. Later, Apple priced it at $149. 

Because it's so wonderful, imitations have been developed for other computers. 
Most of those imitations are worse than the original: they aren't as easy to use and 
can't perform as many tricks. 

In 1986, Ann Arbor Software published an improved Mac Paint called Full Paint, 
and Silicon Beach published a further improvement called Super Paint. They 
understand all Mac Paint's commands, plus more. 

In 1987, Apple created a spin-off company, Claris, to publish Mac Paint. Claris 
developed Mac Paint 2, which is fancier than the original Mac Paint but not as fancy 
as Full Paint or Super Paint. 

Here's how to use the original Mac Paint, the classic from which all the other 
versions sprang... . 

Mouse jargon. Like all other Mac software, Mac Paint requires you to use a mouse 
to point at little pictures (called icons). You can click (by tapping the mouse's 
button), double click (by tapping the mouse's button twice in rapid succession) , or 
drag (by holding down the mouse's button while you move the mouse). For further 
details about using the Mac mouse and operating system, read pages 300-307 of 
volume 1. 

How to start. To start using Mac Paint, put the Mac Paint disk into the drive, 
turn on the computer. If you see a Write/Paint icon, point at it and double click. 
When you see the Mac Paint icon, point at it and double click. 

Your screen will look like this: 


Edit Goodies Font FontSize Style 
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Freehand drawing. To put a dot in the window, point where you want the dot to 
be, then click. 

To draw a squiggly line, point where you want the line to begin, then hold down 
the mouse's button ("drag") while you draw the line. 

The lines you're drawing are fat. That's because they're being drawn with a 
brush. To make narrower lines, choose a pencil, by pointing at the pencil icon 
(which is on the left side of the screen) and clicking. To return to fat lines, point at 
the brush icon and click. If you point at the can of spray paint instead, the lines will 
be even fatter but speckled. To erase part of your picture, point at the eraser icon 
(which is below the pencil icon). 

Although the brush, spray paint, and eraser work as you'd expect, the pencil 
has a peculiarity: although it normally draws in black, it switches te white if you 
draw on a black background. It should really be called a "reverser" instead of a 
pencil. Or call it "a pencil with both black and white lead". 

Perfect lines. To draw a perfectly straight line, point at the line icon (which is 
below the brush icon) and click. Point where you want your line to begin, and drag 
to where you want your line to end. When you finish dragging (and lift your finger 
from the mouse's button), the line will become permanent—and straight. 


SOUPED-UP RECTANGLES 
To draw a perfect rectangle, choose the rectangle icon (which is below the line 
icon). Point where you want a corner to be, and drag to where you want the opposite 
corner. When you lift your finger from the mouse's button, the rectangle you desired 
will appear and become permanent. 

Below the rectangle icon is an icon that produces rectangles with rounded 
corners. Below that is an icon for rectangles whose corners are so rounded that the 
rectangles become ovals. 

To the right of the rectangle, rounded rectangle, and oval icons are similar icons 
whose centers are filled. When you finish drawing a rectangle, rounded rectangle, 
or oval by using those filled icons, the computer automatically fills in the center of 
what you drew. The center will be solid black--unless you choose a fancy pattern 
instead, by clicking one of the pattern icons at the bottom of the screen. (The 
pattern also affects what the brush draws.) 

When you draw a rectangle (or rounded rectangle or oval), the shape is drawn 
with a thin line—unless you chose a thicker line, by clicking one of the thicknesses 
(at the screen's bottom left corner). If you're drawing a filled rectangle and you 
chose the thickness icon that looks like a dotted line, the computer will use a line so 
thin that you won't see it at all: you'll see just the pattern you chose for the 
rectangle's center. 

Below the oval icon is an icon for drawing curves. It works like the brush or 
pencil, but lets you choose your own thickness (by clicking one of the thickness). 

Below the curve icon is an icon for drawing polygons. After choosing it, point 
where you want the polygon's first corner, click, point at the the second corner, 
click, point at the third corner, click, etc. If you wish to close the polygon, end by 
returning to the first corner. When you're done with the whole process, double click 
instead of click. (Short cut: if you chose the fi/led polygon icon, you don't have to 
return to the first corner; instead, when you double click, the computer will return 
to that corner automatically and fill in the polygon.) 


PAINT BUCKET 

If you already drew an object on the screen (by using the brush, pencil, or any 
other tool), you can fill in its center, by clicking the bucket of paint and then 
clicking the center of the object you drew. The paint will be solid black— unless you 
clicked one of the pattern icons at the bottom of the screen. 

Yes, by using those pattern icons you can produce striped paint! Amazing what 
computer technology can do! 

Be careful: if you paint the center of an object that has a hole in its edge, the 
paint will leak through the hole and flow onto the rest of your screen! 
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UNDO 
If you make a mistake, you can undo it. Just tap the key at the upper-left corner of 
the keyboard. That makes the computer undo your last activity-—-even if the activity 
was complicated—and make the screen look like it did before. 

For example, if you draw a shape, then cover it with a second shape, then press 
the undo key, the second shape will disappear, so that you can see the first shape 
again. Moreover, if you tap the undo key again, the second shape will come back! 

For a real-life application, draw a picture of a New York City subway car, then 
vandalize it by taking a can of spray paint and spraying over the car in one 
continuous motion (without lifting your finger from the mouse button), then tap the 
undo key. Presto, all your spray paint comes off the subway! Just think how much 
money New York's subway-cleaning department could save, if its subways ran on 

-Macintoshes! 

For a more suggestive application, draw a picture of a nude, including the navel 
and other anatomy. Then draw clothes; but while drawing the clothes, don't lift 
your finger from the mouse button. When you tap the undo button, the person will 
undress. When you tap the undo button again, the person will resume modesty. 
Nifty! I suppose the Meese Commission would also consider it to be illegal. 


TYPING A MESSAGE 
To type a message on the screen, choose the alphabet icon (which is a big A). Point 
where you want your message to begin, click, then type your message. 

Size. The letters in the message are usually 12 "points" tall. If you want the 
letters to be taller than that, or shorter, point at the word FontSize (which is on the 
menu at the top of the screen). Hold down the mouse's button; while you keep hold 
down the button, you'll see a pull-down menu, which offers you a choice of 9, 10, 12, 
14, 18, 24, 36, 48, or 72 points. In the menu, some of those numbers appear in 
black, others in white; the white ones are the sizes that Apple Computer 
Incorporated recommends. Drag to whichever point size you want. 

To choose a size, instead of using that pull-down menu, you can use this 
Short-cut: while holding down the COMMAND key (which has a squiggle onit), tap 
the ">" key (for a greater size) or "<" key (for lesser). 

Style. The letters in the message usually look plain. For a fancier style, point at 
the word Style (on the top menu), hold down the mouse'’s button, and look at the 
pull-down menu. It offers you six main styles: Plain, Bold, Italic, Underline, 
Outline, and Shadow. Drag to the style you want. You can even choose a combination 
of styles, such as underlined italics: to do that, first choose Underline, then repeat 
the procedure again but choose Italic. 

To cancel Bold, Italic, Underline, Outline, or Shadow, you can cancel them one at 
a time (by dragging to them again), or cancel them allin a single blow, by choosing 
Plain instead. 

The bottom of that pull-down menu offers you three additional style choices: 
Align Left, Align Middle, and Align Right. Normally, you want Align Left. If you 
choose Align Middle instead, everything you type will be centered. If you choose 
Align Right, everything you type will start at the right and expand toward the left. 

To choose a style, instead of using that pull-down menu, you can use this 
shortcut: while holding down the COMMAND key, tap the key that stands for the 
style: P for Plain, B for Bold, I for Italic, L for align Left, etc. 

Font. The letters in the message are usually drawn in a font called Geneva. To 
choose a different font, point at the word Font (on the top menu), hold.down the 
mouse's button, and drag to your favorite font on the pull-down menu. You have 
eight choices. 

RETURN versus ENTER. Your keyboard contains a RETURN key and also an 
ENTER key. Don't confuse RETURN with ENTER! 

Press RETURN at the end of each line you type, to make the computer go down to 
the line below. : 

Press ENTER in the middle of a line, wherever you want to change size, style, or 
font. Press ENTER just before you make the change. (If you forget to press ENTER, 
the change affects the entire text, including even the text you typed previously.) 
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SELECTING PART OF YOUR MASTERPIECE 
After drawing your masterpiece, you can select part of it and manipulate just that 
part. Here's how. 

Moving. If you drew an object, you can moveit to a different part of the screen. 
Just choose the lasso (which is in the upper-left corner). Then draw a line around 
the object (by dragging). When you've entirely "roped in" the object by using the 
lasso's line, lift your finger from the mouse's button. The entire object that you 
roped will flicker. Point at the flickering object; when you point correctly, you'll see 
a pointing arrow. Then move the object, by dragging it. 

To move an entire rectangular area of the screen (instead of just an object), 
choose the icon that looks like a dotted rectangle. Point at a corner of the area you 
want to move, drag to the opposite corner, then lift your finger from the mouse's 
button. Point at the rectangle; when you point correctly, you'll see a pointing 
arrow. Then move the rectangular area, by dragging it. 

Copying. To make extra copies of an object, first use the lasso or dotted 
rectangle to select the object. Then hold down the OPTION key; and while you keep 
holding down that key, drag the object to a new position. The object will appear in 
the new position; but because you held down the OPTION key, the object will also be 
in its old position: it will be on the screen twice. 

Try this experiment. Select an object by using the lasso. Hold down the OPTION 
and COMMAND keys simultaneously; and while you keep holding down those keys, 
drag the object rapidly across the screen. You'll see many copies of the object. For 
example, if the object was a rabbit, you'll see a whole. family of rabbits; if the object 
was a tree, you'll see a forest; if the object was a house, you'll see a neighborhood. 

Stretching & shrinking. Try this experiment. By using the dotted rectangle, 
select a rectangular area. Then point at a corner of the rectangular area; when you 
point correctly, you'll see an arrow pointing at the corner instead of cross hairs. 
While holding down the COMMAND key, drag the corner. As you drag, the rectangle 
will change size, and so will all the objects in it! 

Erasing. If you select an object (by using the lasso or dotted rectangle), and 
then press the BACKSPACE key, the object will vanish. 

Editing. If you select a rectangular area (by using the dotted rectangle), you 
can edit the area in many ways. Just point at the word Edit (on the top menu), hold 
down the mouse button, and drag to your favorite choice on the bottom half of the 
pull-down menu. You have six choices: Invert produces a photographic negative, by 
turning black into white, and white into black; Fill makes the whole area black 
(unless you chose a different pattern); Trace Edges turns each line into a double 
line, and each solid area into an outline having a hollow center; Flip Horizontal shows 
a mirror image; Flip Vertical turns the image upside-down; and Rotate turns the 
image 90° counterclockwise. 

The whole screen. To move everything you drew on the screen-—your entire 
masterpiece—choose the hand icon. Then point at the middle of the screen, and drag 
your masterpiece slightly. (Part of your masterpiece will go off the edge of your 
screen, but the computer will still remember that part. To see it again, dragin the 
opposite direction. ) 


DOUBLE-CLICKED ICONS 
Normally, you choose an icon by clicking it. If you double click, strange things 
happen! 

Hand. If you point at the hand icon and double click, the computer will show a 
miniature version of your entire masterpiece. The miniature is a third as wide anda 
third as tall as the original. It's a miniature of the entire masterpiece, including 
including even the parts that went off the edge of the screen. 

In the middle of the miniature, you'll see a dotted rectangle, surrounding the 
part that was on the screen before you asked for the miniature. If you want a 
different part of the manuscript to be on the screen, drag the rectangle. 

When you've finished looking at the miniature and moving the rectangle, point at 
the word "OK" and click. The screen will show a full-size view of the part of the 
masterpiece that's in the rectangle. 

Eraser. If you point at the eraser icon and double click, the computer will erase 
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the part of the masterpiece that's on the screen. 

Pencil. If you point at the pencil icon and double click, you'll see a magnified 
picture of the middle of the screen. The magnification is eight times as wide and 
eight times as tall as the original. While looking at the magnification, you can still 
modify the drawing by using the pencil, brush, and all the other tools. Remember 
that the pencil is really a reverser: so to change a tiny dot from black to white, or 
back to black again, just use the pencil, point at the dot, and click. 

While you're looking at the magnified drawing, the upper left corner of the screen 
shows the same area in the original size, so you can see the difference between the 
original size and the magnified size. To magnify a different part of the screen, click 
the hand icon, then drag. 

To end the magnification, point at the upper left corner of the screen (which 
shows the original size), and click. 

Brush. If you point at the brush icon and double click, you can change the 
brush's shape. The computer will show you 32 shapes for the bristles at the tip of 
the brush. Point at your favorite shape, then click. By choosing a shape that's 
exotic, you can use the brush to create beautiful calligraphy. 

Pattern. If you point at the leftmost pattern (which is larger than the others) and 
double click, you can edit the pattern. The computer will show you two new enlarged 
views of the pattern. Edit the left enlargement, by clicking the parts you wish to 
change. When you've finished editing it, point at the word "OK" and click. 

Dotted rectangle. If you point at the dotted rectangle icon and double click, 
you'll be selecting the whole screen instead of a small rectangular area. 


CONSTRAINTS 
Mac Paint gives you the freedom to draw whatever you wish. You can even make a 
mess! To prevent messes, you can put constraints on yourself. © 

SHIFT key. If you hold down the SHIFT key, and--while you keep holding down 
the SHIFT key—try to use the brush or pencil or spray can, the computer will let 
you move horizontally or vertically but not diagonally. Everything you draw will be 
perfectly horizontal or perfectly vertical. 

The SHIFT key also works with the eraser, to produce perfectly horizontal and 
vertical erasures. It works with the lasso and dotted rectangle, to produce perfectly 
horizontal and vertical copies. It also works with the hand icon. 

If you select a rectangular area (by using the dotted rectangle) , then stretch or 
shrink the rectangle (and the objects in it) while holding down the SHIFT key, the 
new rectangle's aspect ratio (length divided by width) will be the same as the 
original's, so that the objects in it won't look distorted. 

While holding down the SHIFT key, if you try to use the line icon or draw a 
polygon, the computer will let you move horizontally or vertically or at a 45° angle, 
but not at other diagonals. 

While holding down the SHIFT key, if you try to draw a rectangle, you'll get a 
perfect square instead; if you try to draw an oval, you'll get a perfect circle 
instead. 

Grid. If you point at the word Goodies (on the top menu), hold down the mouse's 
button, and drag to the word Grid on the pull-down menu, the computer will prevent 
rectangles from having sides of weird lengths. The length of each side will be an 
integer, instead of involving decimals. The diameters of all circles and ovals will also 
be integers. 

To cancel the grid, drag to the word Grid again. 


FINISHING 

When you've finished your masterpiece, point at the word File (on the top menu), 
hold down the mouse's button, and drag to your favorite choice on the pull-down 
menu. The choices let you copy the masterpiece to the disk and the printer and quit. 

If you choose Quit, the computer might ask, "Save changes before quitting?" To 
answer, point at the word Yes or at No, and click. (If you choose Yes, the computer ~ 
lets you name your masterpiece: type a name, then point at the word Save and click. 
The computer copies your masterpiece onto the disk.) Then the computer will stop 
using Mac Paint. 
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CLIP ART 
Some artists sell little cartoons that you can insert into your own masterpiece. Those 
cartoons are called clip art. You can buy a disk containing hundreds of little 
cartoons, stick that disk into your Macintosh, and insert your favorite cartoons into 
your Mac Paint masterpiece. 

By using Mac Paint commands, you can modify the cartoons to suit your own 
taste. For example, you can make a cartoon larger or smaller, or change the 
expression on the person's face, or change the writing in the bubble that comes out 
of the person's mouth. 

Your Macintosh dealer (or mail-order company) can sell you dozens of disks full 
of such cartoons. Copying and editing those cartoons is much faster than creating 
your own art from scratch. 


THUNDER SCAN 
You can attach the computer to a video camera, and feed the video picture directly 
into the computer, so the computer can manipulate the picture. 

The cheapest way to do that is to buy a teeny-weeny video camera called the 
Thunder Scan. It comes in a cartridge, which is the same size as the ribbon 
cartridge in the Macintosh's Imagewriter printer. 

To use the Thunder Scan camera, remove the ribbon cartridge from the 
Imagewriter printer, and insert the Thunder Scan camera instead. Then turn on the 
printer; but instead of inserting blank paper, insert any piece of paper that already 
has a photograph on it. The printer will try to move the ribbon back and forth, to 
print; but since the ribbon's been replaced by the Thunder Scan camera, the printer 
moves the camera instead, so that the camera moves back and forth over the entire 
photograph, scans the photograph, and feeds the photograph to the Macintosh's 
RAM (via a special wire). As the Macintosh's RAM receives the photograph from the 
camera, the photograph's picture appears on the Macintosh's screen. Then you can 
copy the picture to the disk. 

Afterwards, you can use Mac Paint to edit the picture and make it more 
interesting. For example, you can take a picture of your friend, and then change the 
expression on your friend's face. 

The Thunder Scan was invented by Andy Hertzfeld, who also helped invent the 
Macintosh. The Thunder Scan lists for $249, but discount dealers (such as Mac 
Connection) sell it for just $199. 

It's easy to install—you don't even need a screwdriver—and it comes with free 
software that lets you do additional editing. 


IMPROVEMENTS OF MAC PAINT 
After Mac Paint was invented by Bill Atkinson at Apple Computer Incorporated, 
several other companies invented improvements. 

The first major improvement, Ful] Paint, was published in 1986 by Ann Arbor 
Software, which later became part of Ashton-Tate. Full Paint understands all the 
Mac Paint commands, plus more. 

Even though Full Paint is fancier than Mac Paint, Full Paint costs less. Mac Paint 
version 2 costs $125 list, $119 from discount dealers; Full Paint costs $99.95 list, $69 
from discount dealers. 

A few months after Full Paint came out, Silicon Beach Software invented an even 
fancier program, called Super Paint. Discount dealers sell Super Paint 1.1 for $79 
and Super Paint 2 for $109. 
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COLORS 
The typical Mac can't handle colors: all the drawings are just black-and-white. The 
only Mac that can handle colors is the Mac 2. It creates 16 million colors, and permits 
256 of them to be on the screen at once. It's ridiculously expensive. 

To get nice color graphics cheaply, buy an Apple 2gs, Commodore Amiga, Atari 
ST, IBM PS/2, or IBM clone with VGA. 

The nicest color- graphics program for such computers is Deluxe Paint, published 
by Electronic Arts. It works on all those computers except the Atari ST. If you have 
an Atari ST, get Degas Elite, published by Batteries Included. 

IBM hassles. The Macintosh, Amiga, and Atari ST all come with a mouse; but for 
the IBM PC, a mouse costs extra. The nicest IBM mouse is made by Microsoft; 
discount dealers sell it for about $100. The cheapest IBM mouse is the Genius mouse, 
made by Imsi; discount dealers sellit for about $50. Other popular IBM mice are made 
by Logitech and Mouse Systems. The typical mouse comes with a free paint program. 

To use most IBM paint programs well, you must buy a color monitor. You must 
also buy a color card, to put inside your computer and attach the monitor to. 

IBM's standard color card is called the color/graphics adapter (CGA). It creates 
just 16 colors, and permits just 4 of them to be involved in graphics at once. 

For more colors, you buy an enhanced graphics adapter (EGA), with an EGA 
color monitor. EGA creates 64 colors, and permits 16 of them to be on the screen at 
once. 

For even more colors, buy a video-graphics-array adapter (VGA), with a VGA 
color monitor. VGA creates 262,144 colors, and permits 256 of them to be on the 
screen at once. 


CAD 
To design a building (or even a new machine), you need to create a blueprint. 
Making the computer create a blueprint is called computer-aided drafting (or 
computer-aided design or CAD). If those blueprints are in turn fed to computerized 
machines that manufacture the parts for the building, the whole process is called 
computer-aided design & computer-aided manufacturing (CAD/CAM). 

Many architects and engineers use CAD programs. The CAD programs resemble 
Mac Paint, but have several advantages. ... 

The CAD programs can do math. They can look at your diagrams, compute all the 
measurements (lengths, surface areas, and volumes), and write those measurements 
on the blueprints. 

The CAD programs can do advanced geometry. For example, they can draw a 
circle, even if you don't say where the center is or what the radius is. Just say three 
points that you want the circle to touch: the CAD programs will figure out which 
circle goes through those three points and will draw it. 

After you've drawn an object, the CAD programs can rotate it and show you the 
views from different angles, in the form of blueprints or as artistic perspective 
drawings. 

The CAD programs let you name the parts of your object and move the parts 
around. If one part covers another part and hides it, the CAD programs remember 
that the hidden part is still there, so that the hidden part will automatically reappear 
if you ever move the other part out of the way. 

Although CAD programs are excellent for drawing and analyzing straight lines, 
circles, and ovals, they are not good at handling artistic squiggles. Soif you're an 
artist who likes to draw wild squiggles, do not get a CAD program: instead, stick 
with Mac Paint (or Full Paint or Super Paint or their clones). CAD programs are 
strictly for architects, engineers, and other folks who do technical drafting. 
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Traditional top-notch CAD programs require you to sit at a fancy screen (called a 
graphics workstation) attached to an expensive computer costing over $50,000. 
Newer CAD programs work on microcomputers and are almost as fancy. 

The fanciest CAD program for microcomputers is Autocad. The newest version of 
Autocad lists for $2850; it requires an IBM AT (or AT clone) and a math coprocessor 
chip (which helps the computer handle decimals quickly). A fun version, called 
Autosketch, lists for just $80 and runs on any IBM clone. 

Autocad's main competitor is Cadkey, which has more commands for 3- dimensional 
drawing but fewer commands for 2-dimensional drawing. It lists for $3195. 

Another alternative is Generic Cadd. It's almost as good as Autocad and Cadkey 
but lists for just $100. Discount dealers sell it for $70. 

The first CAD program for the Mac was Mac Draw. For elementary CAD 
applications, you can get by with Super Paint, which includes some of the commands 
of Mac Draw plus all the commands of Mac Paint. Better CAD programs for the Mac 
are being developed. 


BUSINESS GRAPHICS 

Business executives like to turn tables of numbers into pie charts and bar charts. 
The most popular way to produce those charts is to use a spreadsheet program (such 
as Lotus 1-2-3), which lets you type a table of numbers and then say "Graph". 

Lotus 1-2-3 produces only a few types of graphs, and its graphs look crude. To 
create graphs that are fancier and prettier, buy a fancier spreadsheet program 
(such as Microsoft Excel) or a business graphics program (such as Microsoft Chart, 
Harvard Presentation Graphics, or Perspective). 


THE PRINT SHOP 
To create big signs and greeting cards easily, get The Print Shop, invented by 
David Balsam & Martin Kahn. 

It's published by Broderbund, which has sold over 500,000 copies. It's the most 
popular graphics program ever created for the Apple 2e & 2c. Now it's available for 
all the other popular computers also. 

It costs $49.95 for the Apple 2e & 2c version, $44.95 for the Commodore 64 and 
Atari 800 XL versions, $59.95 for the IBM PC, and $79.95 for the Macintosh. Those 
are the list prices; discount dealers charge less. 

I'll describe the IBM PC version. The other versions are similar. 

To start using the IBM PC version, turn on the computer properly (by putting a 
DOS disk into drive A, turning on the power, and typing the date and time). Then 
put The Print Shop disk into drive A, and type PS. 

Main menu. The computer will show you the main menu: 


MAIN MENU 


GREETING CARD 
SIGN 

LETTERHEAD 
BANNER 

SCREEN MAGIC 
GRAPHIC EDITOR 
SETUP 

EXIT PRINT SHOP 


To choose an item from the menu, point at the item (by using the up-arrow and 
down-arrow keys), and then press ENTER. 

SETUP. The first time you use The Print Shop, choose SETUP from the menu. 
The computer will ask which printer, screen, and disk. drives you bought, then 
return you to the main menu. 
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SIGN. To create a sign, choose SIGN from the main menu. The computer will let 
you create a sign having words and a picture in the middle, and a fancy border 
around the edge. 

The computer begins by asking which kind of border you want. You have 17 
choices: a thin line, thick line, double line, stars, beads, hearts, flowers, lace, 
lattice, wicker, woven, spirals, seashells, musical notes, candy canes, umbrellas, 
or none. : 

Then the computer asks which picture you want in the middle of the sign, and 
gives you 140 choices: 


Festivities 
Halloween pumpkin, Thanksgiving turkey, Christmas tree, Christmas wreath, 
Hanukkah menorah, birthday cake, stork carrying baby, gift box, gift wrapping 


Pleasures 
heart, cupid, rose, dancing, top hat, musical notes, bells, piano, trumpet, drum 


Refreshments 
ice cream, ice-cold drink, coffee, tea, champagne, bartender 


Animals 

grinning dog, poodle, crouching cat, erect cat, bunny, turtle, teddy bear, parrot, 
dove, bird house, penguin in tuxedo, cuddly penguin, butterfly, lion, tiger, rhino, 
unicorn, shark, pig 


Pointers 
left arrow, right arrow, finger pointing left, finger pointing right, thumbs up, 
thumbs down 


Money 
piggy bank, money bag, safe, cash register, hands passing money, demanding 


money, Master Card, Visa 


Transportation 


antique car, taxi, chauffeur, reserved for handicapped, train, sailboat, rocket, 
baggage, woman walking | 


Communication ; 
phone, mailman, express mail, reader, eyes, eye chart, pen & paper, pen & ink, . 
artist, typesetter, confidential file 


Thought 
teacher, student, graduation, certificate, scales of justice, gavel, ballot box, solar 
energy, desk piled with work 


Other 

boss, meeting, alarm clock, house, yard sale, family, mother & child, lifting 
weights, skiing, warm-up exercise, tired feet, skull, candlestick, light bulb, 
sunshine, outer space, yin-yang, life buoy, flower, good-luck horseshoe, shoes, 
iron, running faucet, robot, computer, floppy disk, Charlie Chaplin, white flag, 
lock, closed, question mark, string wrapped around finger, block saying "A", 20 
patterns 


After you choose one of those clip-art pictures, the computer asks how large to 
make it. If you choose a small size, the computer asks whether you want the picture 
repeated, to create a wallpaper or tile pattern. 

Next, you choose one of 12 type styles. Then start typing the words you want to 
put on the sign. To make extra-large characters, press the F7 key; to make 
extra-fancy characters, press the F9 key. The computer will automatically center 
your message vertically and horizontally, unless you say otherwise. 
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Finally, the computer asks where you'd like the sign to appear. You have four 
choices: your paper, your screen, your disk, or your T-shirt. If you choose 
T-shirt, the printer will print the entire sign backwards onto paper, so that when 
you iron it onto your T-shirt the writing will appear correct. The computer also 
gives you a chance to request multiple copies. 

After the computer prints, the computer gives you the opportunity to create more 
copies or return to the main menu. 7 

BANNER. From the main menu, if you choose BANNER (instead of SIGN), the 
computer will let you produce a banner as long as you wish. You can even make it 
long enough to cover the entire length of your hallway! Each letter on the banner 
will be huge—about six inches high—so that you can read the banner from far away. 
Your printer will print the entire banner sideways, on tractor-feed paper: when you 
take the banner out of the printer, turn the banner 90° counterclockwise, so you can 
read it. 

Other choices on the main menu. LETTERHEAD makes the computer print your 
name & address & graphics at the top and bottom of your stationery. GREETING 
CARD makes the computer produce a greeting card with your own front cover, inside 
message, and credit line on the back (instead of saying "by Hallmark"). SCREEN 
MAGIC makes the computer create a sign based on a kaleidoscope instead of clip art. 
GRAPHIC EDITOR lets you create your own clip art, by using a joystick or the arrow 
keys. EXIT PRINT SHOP returns you to DOS. 

Add-ons. After you buy The Print Shop, you'll also want to buy the Graphics 
Library (which includes extra clip art) and The Print Shop Companion (which 
includes extra borders, type styles, and graphics-editor commands). 
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CERTIFICATE MAKER 
To print certificates, get Certificate Maker, published by Springboard Software. 
The version for the Apple 2e & 2c lists for $49.95; the version for the IBM PC lists 


for $59.95. 
Certificate Maker creates 220 kinds of certificates: 


Love 
certificate of love, sweetheart award, best kisser award 


Drinking : 

wine taster's certificate, wine connoisseur's certificate, beer connoisseur's license 
Pleasures 

photographer's award, best vacation pictures award, globetrotter's certificate, 
party animal 


Personal strengths 


cheerfulness award, citizenship award, community service award, award for quitting 
smoking, nicest smile, outstanding attitude, coolness under pressure 


Personal weaknesses 

sweet tooth certificate, award for painting yourself into a corner, out on a limb, 
PIGSTY award (others for bad haircut, big mouth, foot in mouth, back seat driver, 
Mr. Know-It-All, Ms. Know-It-All, couch potato, "sticking to your guns", and 
worst joke) 


Good work 

certificate of promotion, efficiency award, hardest worker award, troubleshooter's 
certificate, job well done, outstanding in your field, master certificate maker, best 
boss award (2 versions), best secretary award (2 versions), employee of the WEEK 
(others for month and year) 


Non-work 
procrastinator's award, clock watching award, most coffee breaks award, company 
clown, infecting co-workers 


Flops 
Murphy's law degree, quack license, horrible mention, wanted, LEMON award 
(others for dead carp, can of worms, rude awakening, and thanks for nothing) 


Family 

certificate of wedded bliss, happy birthday certificate, adoption certificate, award 
for eating all of your yucky vegetables, greatest backyard chef, in the doghouse, 
best friends certificate (6 versions) , DOG owner's license (others for cat and bird), 
ANNIVERSARY award (others for best mom, best dad, good girl, good boy, bad 
girl, bad boy, clean teeth, clean room, gourmet chef, and newborn baby) 


School 

certified idiot, class clown, diploma (3 versions), MATHEMATICS award (others for 
reading, writing, and computer whiz-kid), computer operator's license, certificate 
of SCHOLASTIC ACHIEVEMENT (others for geography skills, mathematics skills, 
and graduation), certificate of READING proficiency (others for writing, spelling, 
art, music, science, history, social studies, and physical education) 


Sports 

teamwork award, poor sportsmanship award, world's greatest athlete, world's worst 
athlete, most valuable player, least valuable player, most valuable member, 
marksmanship award, fishing award, skiing award, gymnastics award (4 versions) , 
GOLFING award (others for bowling, swimming, baseball, basketball, football, 
soccer, hockey, tennis, racquetball, and track & field, 3 versions of each) 
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General 

driver's license, the widest thinnest tallest smallest award, honorable mention, 
congratulations, best suggestion, thank you, what will I be when I grow up?, most 
likely to..., award for FIRST PLACE (others for second place, third place, and best 
idea), certificate of MERIT (others for achievement, excellence, appreciation, 
recognition, attendance, membership, participation, completion, improvement, 
proficiency, and performance), license (3 general versions), certificate of... (3 
general versions), award for... (2 general versions), award (3 general versions) , 
also 16 general religious awards, 11 general awards for children, and 4 totally 
general awards 


-Most of those certificates include funny drawings. For example, the certificate 
that says "Outstanding in Your Field" includes a picture of the person in a field of 
grass, all alone. 

Below the certificate's title and drawing, you can write your own detailed text 
(using 5 type styles), followed by the date and your signature. The program even 
comes with some gold seals to stick on. 

You have 24 choices for the certificate's border. To make the border look 
impressive (like money), try getting a ribbon that has green ink, or put green toner 
into your photocopying machine. 

The program includes a data-base feature, so you can type a list of all your 
friends and send them all personalized certificates. 


SPECIAL FUN 
Springboard, which publishes Certificate Maker, also publishes Mask Parade, which 
lets you create masks to put on your face. After the computer prints your mask onto 
paper, you cut out the mask and then color it with crayons. The program also prints 
badges, paper hats, fake glasses, costume jewelry, and footwear. It runs on the 
Apple 2e & 2c and the IBM PC, and lists for $39.95. 

Broderbund, which publishes The Print Shop, also publishes The Toy Shop, 
which lets you build model airplanes and other toys, out of construction paper. The 
printer prints diagrams, which you cut out and glue together to build the 
3-dimensional toys. All the toys have moving parts. The program comes in a big box 
that includes all the materials you need to build them: the box includes 
adhesive-backed cardboard (which you attach the computer's printouts to), string, 
rubber bands, wooden sticks, metal rods, and balloons. The program creates 20 
different kinds of toys, and lets you customize each toy by designing your own 
decals, computerized paint job, and engraved text. The Apple 2e & 2c and Macintosh 
versions list for $64.95; the IBM PC version lists for $69.95. 

By using Mac Paint or Lotus 1-2-3 or other graphics software, you can create 
many screenfuls of graphics and copy all those screenfuls onto a disk. You can buy a 
slide-show program, which looks at. your disk and copies all those graphics from the 
disk to the screen—one screenful at a time-—to form a kind of animation. 

Better yet, get a story-writing program, which lets you create an illustrated 
story and then displays your story on the screen—one screenful at a time. 

The fanciest story-writing program is Bank Street Story Writer. It includes a 
word processor (so you can write the stories) and a painting program that resembles 
Mac Paint (so you can illustrate the stories). It also includes commands for telling 
the computer when to "flip the page" (erase the screen and show the next page of 
the story) and when to pause (to give your audience a chance to read what's on the 
screen). It's published by Mindscape, which charges $29.95 for the Commodore 64 
version, $39.95 for the Apple 2e & 2c version. 

A slight variation of Bank Street Story Writer is Kidwriter, which relies on clip 
art instead of imitating Mac Paint. Since inserting clip art is easier than drawing art 
from scratch, young kids prefer Kidwriter, but older kids outgrow Kidwriter's clip 
art and prefer Bank Street Story Writer's drawing tools and superior word processor 
and pacer. 
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Even simpler to learn than Kidwriter is Story Machine, which creates art 
automatically. Just type the story, and Story Machine automatically illustrates it. 
For example, if you type "The houses dance", Story Machine will automatically show 
some houses and then show the houses grow legs and dance around the screen. You 
must use just the words Story Machine knows: 13 nouns (boy, girl, dog, cat, rock, 
fence, house, store, apple, tree, flower, box, bumpus), their plurals, 10 verbs 
(sings, dances, walks, runs, hops, jumps, goes, eats, is, zots), their 
conjugations, plus a few adjectives, prepositions, pronouns, and articles. 

Story Machine automatically censors your story, to avoid sex and violence. For 
example, if you type "The boy eats the girl", Story Machine refuses to illustrate it, 
and immediately erases that sentence from your story! 

Even simpler than Story Machine is Facemaker. It lets you create a funny face by 
using clip art: you choose from 8 noses, 8 mouths, 8 kinds of eyes, 8 kinds of ears, 
and 8 hairstyles. Then you write a one-line program that animates the face. For 
example, this program— 
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makes the face Frown, then Smile, then Cry, then Wink, then wiggle its Ear, then 
pause, then stick out its Tongue, then stick out its Tongue again. The entire 
animated sequence is automatically accompanied by appropriate sound effects: for 
example, when the face sticks out its tongue, you hear the sound of "giving a 
raspberry"; when the face winks, you hear a "wolf whistle". I've been describing 
the original version of Facemaker; the newest version, called the "golden edition", 
is even fancier. 

Kidwriter, Story Machine, and Facemaker are published by Spinnaker, which has 
sold over 100,000 copies of each. Kidwriter costs $39.95 for the Apple 2e & 2c and 
IBM PC. Story Machine costs $24.95 for the Apple 2e & 2c. Facemaker costs $24.95 
for the IBM PC, $20.95 for the Commodore 64 and Atari 800 XL, and $39.95 for the 
golden edition on the Apple 2e & 2c. 

To create smoothly animated movies, get Fantavision. It resembles Mac Paint; but 
after you draw two shapes, you can tell Fantavision to animate them: Fantavision will 
make the first shape gradually turn into the second shape, and then make the second 
shape gradually turn back into the first shape. For example, draw a picture of a 
person whose arms are raised, then draw a picture of the same person with arms 
lowered, and Fantavision will automatically create an animated cartoon of the person 
gradually lowering and raising the arms. But why stop at just 2 shapes? Fantavision 
can manipulate a chain of 128 shapes, to form an animated movie having 128 main 
frames (plus all the in-between frames that Fantavision creates automatically). It's 
published by Broderbund for the Apple 2e & 2c at $49.95. 

To produce professional-quality animated cartoons and games on your screen, 
the best tool is Game Maker, invented by Garry Kitchen and published by 
Activision. It's available for several computers, but the Commodore 64 version is the 
most impressive, since it produces amazingly high-quality music and animation on 
that cheap computer. Game Maker includes lots of clip art, sound effects (such as 
bombs dropping), and musical passages (such as the William Tell overture), but also 
lets you create your own, by using four included tools: Scene Maker (which 
resembles Mac Paint), Sprite Maker (which lets you create moving objects), Sound 
Maker (which imitates a music synthesizer and sound studio), and Music Maker 
(which lets you create three-part harmony on a musical score and imitate an 
orchestra). After using those tools to invent your own video and audio passages, 
you connect those passages to each other by using a built-in programming language 
(which includes commands such as IF), so that you completely control the speed, 
repetitions, and inputs from the human who will play your game. The Commodore 64 
version gives you all that--the Scene Maker, Sprite Maker, Sound Maker, Music 
Maker, and programming language—for a total list price of just $39.95. Amazing! 
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THE ULTIMATE MUSIC MACHINE 
Musicians, programmers, and engineers are working together to create the Ultimate 
Music Machine, which makes all other musical instruments obsolete. You can buy all 
its parts at your local computer and music stores, but the software and hardware 
that connects the parts is awkward. By 1989, I expect some company will build an 
assembled version that you just plug into the wall for immediate fun. 


PART 1: THE TONE-QUALITY CREATOR 
The Ultimate Music Machine can imitate all other musical instruments. To make it 
imitate an instrument, play a few notes of that instrument into machine's microphone. 
The machine makes a digital recording of the instrument, analyzes the recording, 
and stores the analysis on a 33-inch floppy disk. 

The machine's analysis is quite sophisticated. For example, it realizes that a 
violin note has a vibrato (because the violinist's finger wiggles), that each piano 
note begins with a bang and ends with a hum, and that the piano's bass notes sound 
"fatter" than the treble notes (because the bass notes are made from different kinds 
of strings). 

The machine lets you edit the analysis, to create totally new tone qualities, such 
as "piolin" (which is a compromise between a piano and a violin). 

When you buy the machine, it comes with recordings of the most popular 
instruments, and lets you add your own and edit them. It also lets you use 
fundamental waveforms (such as sine waves, square waves, and triangle waves), 
which act as building blocks for inventing sounds that are wilder. 


PART 2: THE NOTE CREATOR 
The machine includes a piano-style keyboard (with black and white notes onit). To 
feed the machine a melody, tap the melody on the keyboard. You can also play 
chords. The machine notices which notes you strike the hardest, soit records your 
accents. 
- The machine includes a pitch-bend dial, which you turn to make the notes slide 
up the scale, like a slide trombone. 

If you're not good at the keyboard, use the machine's screen instead, which 
displays a musical staff and lets you move notes onto the staff by using a mouse. You 
can also use the mouse to edit any errors you made on the keyboard, and to create 
repetitions and increase the tempo. 

If you fear mice and keyboards, just sing into the machine's microphone. The 
machine notices which notes you've sung and records them. 

If you're too lazy to create a melody or harmony, the machine creates its own. Its 
built-in computer analyzes your favorite music, notices its rhythms, note 
transitions, and harmonic structures, and then composes its own music in the same 
style. 


PART 3: OUTPUT 
The machine plays the edited music through stereo speakers. As the music plays, 
the complete score moves across the screen, in traditional music notation. The 
machine also prints the score on paper. Yes, the machine prints a complete score 
showing how you sung into the mike or tickled the keys! 


VENDORS 
The Ultimate Music Machine is built from music synthesizers. The most popular 
synthesizers are made by three Japanese companies: Casio, Roland, and Yamaha. 
Their synths cost from $25 to $3000 and contain tiny computers. For extra computing 
power, attach a Macintosh computer by using a Musical Instrument Digital Interface 
cable (MIDI cable). To print pretty scores cheaply, add Deluxe Music Construction 
Set, a Mac program published by Electronic Arts for under $50. 


(53) Pleasures: music 


BOARD GANNET 


TREES 
In 1950, Claude Shannon proposed a way to make the computer win at checkers, chess, 
and other complicated games. 

To understand his method, let's try to make the computer win a game of checkers. 
As in all checker tournaments, one player is called BLACK, and the other is called 
WHITE (even though his pieces are actually red). BLACK makes the first move. When 
a player can jump, he must. The game ends when one of the players can't move 
(either because he has no pieces or because his pieces are blocked). 

To simplify the game, we'll play on a 4-by-4 board, instead of the traditional 
8-by-8. Each player has two pieces instead of twelve. 

Examine the diagram on the opposite page, which shows 63 possible positions. 
Position #1 is the initial position, from which black will move. The three arrows coming 
from position #1 represent the three legal moves he can choose from. Depending on which 
move he chooses, the board will wind up in position #2 or #3 or #4. Which move is best? 

To find out, examine the consequences of each move: 


If he moves to position #2, white will reply by moving to position #5 or #6 or #7. 
If he moves to position #3, white will reply by moving to position #8 or #9 or #10. 
If he moves to position #4, white will reply by moving to position #11 or #12 or #13. 


The diagram shows all possible ways the game's first five moves could go. Throughout 
the diagram, w means white man, b means black man, W means white king, and b means 
black king. The diagram is called a tree. (If you turn it upside down, it looks like the 
kind of tree that grows in the ground.) The arrows are called the tree's branches. The 
tree's depth is 5. 

Which position should black choose: #2, #3, or #4? The wisdom of your answer depends 
on how deep you make the tree. In this particular game, a depth of 5 is satisfactory; but 
in 8-by-8 checkers or chess you might have to dig deeper. Theoretically, you should 
keep digging until you reach the end of the game; but such a tree might be too large 
to fit in your computer's memory. 

For chess, Shannon estimated that a complete tree requires 102° branches. Einstein 
estimated that the number of electrons in the universe is only 10’*°. If Shannon and 
Einstein are both right, the tree can't fit in the universe! 

Having constructed a tree of depth 5, look at the bottom positions (#42 through #63) 
and evaluate them, to see which positions look favorable for black. You should consider 
many factors: which player has control of the center of the board? which player can move 
the most without being jumped? and so on. But to keep matters simple, let's consider 
just one factor: which player has the most men? Consider a king to be worth 1} men. 

Subtract the number of white men from the number of black men: the result of the 
evaluation is a number, which is called the position's va/ue. If it's negative, black is 
losing; if it's positive, black is winning; if it's zero, the game is heading for a draw. 

For example, consider position #42. Since black has one man and white has two, the 
value is 1 minus 2, which is -1. That's why I've written "v=-1" underneath that position. 
‘The value of each position at depth=5 is computed by that method. 

For the positions at depth=4, use a different method. For example, here's how to find 
the value of position #29. That position has two possible outcomes: #46 and #47. Which 
outcome is more likely? Since the move will be made by black, and black's goal is to 
make the value large, he'll prefer to move to #46 instead of #47. Since the most likely 
outcome is #46, whose value is 3, assign position #29 a value of 3 also. 

Here's the rule: to compute the value of a position at depth=4, find the maximum 
value of the positions it points to. (The value of position #29 is the maximum value of 
positions #46 and #47, which is 3.) 

To compute the value of a position at depth=3, find the minimum value of the positions 
it points to (since it's white's turn to move, and white wants to minimize). For example, 
the value of position #18 is the minimum value of positions #31 and #32, which is 13. | 
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CHECKERS ON A 4-BY-4 BOARD 
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Compute the values for depth 2 by maximizing, and the values for depth 1 by 
minimizing. Finally, you get these results: 


The value of position #2 is -1. 
The value of position #3 is 0. 
The value of position #4 is -1z. 


Since black wants to maximize values, black should move to position #3. If white is also 
a good player, the game will probably gravitate toward position #53, a draw. If white 
is a poorer player, black will win. 

That method of choosing the best move was proposed by Shannon. Since it makes 
heavy use of minimums and maximums, it's called the minimax method. 


CHECKERS 
After Shannon, the next person to become famous was Arthur Samuel. He spent a long 
time (twenty years, from 1947 to 1967) trying to make the computer win checkers. He 
used Shannon's minimax idea, but made many improvements. 

His first spectacular success came in 1962, when his program won a game against 
Robert Nealey, a former Connecticut checkers champion. After the game, Nealey said, 
"The computer had to make several star moves in order to get the win....In the matter 
of the end game, I have not had such competition from any human being since 1954, 
when I lost my last game." 

Later, the computer played six more games against Nealey. Nealey won one of them; 
the other five were draws. 

In 1965 the computer played four games against W.F. Hellman, the World Champion. 
The games were played by mail. Under those conditions, Hellman won all four. But in 
a hastily played game where Hellman sat across the board from the computer, the result 
was a draw. 

In 1967 the computer was beaten by the Pacific Coast Champion, K.D. Hanson, 
twice. 

In short, the computer wins against most humans and draws against most experts, 
though it loses to the top champions. To bring the computer to that level of intelligence, 
Samuel improved Shannon's method in three ways: 


When choosing among several moves, the computer analyzes the most promising ones 
more deeply. 


After computing the value of a position (by examining the positions under it), the 
computer writes the value on a piece of tape. If the position recurs in another game, 
the computer looks at the tape instead of repeating the analysis. 


To compute the value of a position, the computer examines many factors in addition to 
the number of pieces each player has. The computer combines the factors, to form 
combination-factors, and then combines the combination-factors to forma single value. 
The relative importance given to each factor is determined by "experience". Samuel 
experimented with two forms of experience: he had the computer play against itself, 
and also had it analyze 250,000 moves that occurred in checker championships. 
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MAXICOMPUTER CHESS 
While Samuel was programming checkers, other programmers tried to write a similar 
program for chess. They had a hard time. In 1960 the best chess program that had 
been written was beaten by a ten-year-old kid who was a novice. The first decent 
chess program was written in 1967 by Richard Greenblatt and his friends at MIT: it 
actually won a game in a chess tournament. But in most tournaments, it lost. In 1970 
and 1971, it lost every game in every tournament it entered. 

In 1968, Atkins & Gorklen, undergraduates at Northwestern University, wrote a 
chess program. Inspired by their program, David Slate, a graduate student in physics 
there, wrote a chess program also. In 1969, Slate & Atkins combined the two programs, 
to form a better program, Chess 2.0. During the next several years, they continually 
improved the program; their most famous version was called Chess 4.7. Their program 
is playing chess against human experts— and winning! Their computer has scored 
several triumphs in tournaments designed for humans. In 1976, their computer was 
the winner of the class B section of the Paul Masson American Chess Championships 
(against the humans, it scored 5 wins, no losses). By winning that tournament, it 
achieved a U.S. Chess Federation score of 2210 and became a chess Master. Then 
it entered the Minnesota State Championship, to try to become the Minnesota State 
Champion, but lost (it scored 1 win, 3 losses, 1 tie). 

In August 1968, an International Chess Master, David Levy, bet about $5,000 
against several computerists. He bet that no computer would win a chess match against 
him in the next ten years. He won the bet: in August 1978, Chess 4.7 tried one last 
time to win a match against him, but lost (it scored 1 win, 3 losses, and 1 tie). 

Slate & Atkins improved Chess 4.7, to form Chess 4.9, which is the world champion 
of computer chess. But though it's the world champion of computer chess, it's not 
necessarily the "best" program. It wins because it runs on a super-fast maxicomputer 
(manufactured by Control Data Corporation); other chess programs, written for slower 
computers, are at a disadvantage. 


MINICOMPUTER CHESS 
Almost as fast as Chess 4.9 is a program called Belle, written at Bell Telephone 
Laboratories. Belle runs on an unusual minicomputer that's specially wired to create 
trees quickly. 


MICROCOMPUTER CHESS 
Each of those programs— Chess 4.9 and Belle— requires an expensive CPU and lots 
of RAM. Is it possible to write a decent chess program using only a cheap CPU and very 
little RAM? Yes! In 1976, a Canadian named Peter Jennings wrote a program called 
Microchess 1.0; it ran on a $250 microcomputer (the KIM-1), which contained a 6502 CPU, 
no ROM, and only 1K of RAM! The program played decently, though not spectacularly. 

Later, he improved the program, and called the improvement Microchess 1.5. It plays 
on the Radio Shack model 1 and the Apple. The version on the model 1 consumes 4K of 
RAM: 2K is for the logic, and the other 2K are just to make the picture of the chess 
board look pretty! You can get Microchess 1.5 for just $20 from your local Radio Shack 
store or Apple dealer. 

In 1978, an amazing chess program was written by a husband-and-wife team: Dan and 
Kathe Sprachlin. They named the program "Sargon", to honor an ancient king. It ran on 
the Jupiter microcomputer, which contained an 8080 CPU and 16K RAM. It played much 
better than Microchess. When the Jupiter computer became obsolete, the Sprachlins 
rewrote the program, to make it run on the Radio Shack model 1 and the Apple. Then 
they developed an improved version called "Sargon 2", and a further improvement 
called "Sargon 3", which runs on a// the popular computers. Sargon 3 is published by 
the Hayden division of Spinnaker. 

For many years, Sargon 3 was considered the best microcomputer chess program. 

But in 1986, Sargon 3 was beaten by a new program called "Chessmaster 2000". Like 
Sargon 3, Chessmaster 2000 contains many features that make it fun for both experts 
and novices. It's published by Software Toolworks, distributed by Electronic Arts, 
costs about $35, and comes in versions for the Apple 2e & 2c, Commodore 64 & Amiga, 
Atari 800 XL & ST, and IBM PC. 
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When you play against the computer by using Sargon 3 or Chessmaster 2000, you 
can ask the computer for help, by pressing a special key. Then the computer will tell 
you how it would move, if it were in your position. You can follow the computer's 
suggestion or ignore it. (Since your goal is to outsmart the computer, you should 
listen to the computer's advice; but instead of following the advice, you should try to 
devise an even cleverer move.) 

Many companies manufacture hand-held electronic chess games. Some of the games 
even contain a tiny voice synthesizer, which lets the computer tell you its moves 
verbally. Some of the games even contain a mechanical arm, so that the computer will 
pick up the pieces and move them. Some of the games have touch-sensitive boards, 
so that you can indicate your move by just pushing the square you want to move from 
and the square you want to move to. For humor, some of the chess games have the 
computer make wisecracks about your style of playing. 


CHOOSING A LEVEL 
When you begin playing a top-notch computer game (such as Chessmaster 2000), you 
must choose the "level" at which you want the computer to play. If you choose a low 
level, the computer will move quickly, without much forethought. If you choose a 
high level, the computer will play more carefully (and make better moves); to do that, 
the computer "looks ahead", by building a very large tree, which requires lots of time; 
and so you must wait a long time until the computer moves. If you choose a level that's 
very high, the computer will need several hours to compute its move. 


WHY A COMPUTER? 
Playing against the computer is more interesting than playing against a human. 

When you play against a human friend, you must wait a long time for your friend to 
move. When you play against Chessmaster 2000 at a low level, the computer moves almost 
immediately. So you can play several games against the computer (and learn a lot from 
them) in the same amount of time you'd need to play just one game against a human. 

So by playing against the computer, you gain experience faster than by playing against 
a human. Bobby Fisher, the world chess champion, now plays only against computers; 
he refuses to play against humans. 

The computer is kinder than a human. If you make a bad move, the computer lets 
you "take it back" and try again. If you seem to be losing, the computer lets you restart 
the whole game. The computer— unlike a human— has infinite patience and no ego. 
Playing against the computer is less threatening than playing against a human. 

If you have a computer, you don't have to worry about finding an opponent who's 
"at your level"; when you play against the computer, just tell the computer at what 
level you want it to play. The computer will act about as smart as you wish. 
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OTHELLO 
Chess and checkers are both played on a checkerboard. Another game that's played 
on a checkerboard is "Othello". It uses checkers, but each checker has two sides: 
one side is white; the flip side is black. 

When the game begins, only four checkers are on the board: two of them have their 
white side showing, and the other two checkers show black. 

The game is for two players. One is called the white player, and the other is called 
the black player. 

For example, suppose you're the white player. On your turn, you put an extra 
checker onto the board, so that the checker shows white. You must position the checker 
so that it and a previously placed white checker surround some black checkers. Then 
you flip all the surrounded black checkers, so that they become white. 

Similarly, on his turn, the black player puts a black checker onto the board, so that 
some of your white checkers are surrounded by black, and he flips all those white 
checkers, so that they become black. 

The game ends when the board is entirely filled with checkers. If most of the checkers 
are white, the white player wins; otherwise, black wins. 

The game is tricky, because the definition of "surrounded checkers" is strange, and 
because you can't easily figure out who's winning. At first glance, you'd think that if 
most of the checkers on the checkerboard are white, white is ahead; but at the end of 
the game, the situation can change drastically. For example, the black player might 
place a black checker in such a way that most of the white checkers become black. So you 
must guard against dangerous positions. During the early parts of the game, the white 
checkers' positions are more important than their quantity. 

The game began centuries ago in England, where it was called "Reversi". It resembled 
the Japanese game called "Go". About 1975, it was marketed in the United States as a 
board game, under the name "Othello" (which is trademarked by Gabriel Industries). 
Programmers tried to make the computer imitate the game and win. 

After writing Sargon 2 (the award-winning chess program), Dan and Kathe Sprachlin 
turned their attention to Othello, and wrote an award-winning Othello program, called 
"Reversal". It plays Othello better than any other program ever invented. Like Sargon 2, 
it's been published by Hayden, runs on the Apple, allows several levels of play, costs 
$35 on disk, and lets you press a "tutoring" button whenever you want the computer to 
give you advice on how to reply. For added humor, each checker shows a frown or smile. 
For example, if the white checkers outnumber the black, the white checkers wear smiles, 
and the black checkers wear frowns; the smiles and frowns grow bigger, as white's lead 
over black inc?eases. And whenever a checker is added to the board or flipped, the 
computer plays a musical fanfare. 

Unfortunately, Hayden has become part of Spinnaker, which has stopped publishing 
the program, because most people have forgotten how to play Othello and no longer want 
to play. Too bad! It was a fun game. 


BACKGAMMON 
Backgammon is a game played with dice. It requires both luck and skill. For many years, 
the world champion backgammon player was a human. But recently, he was beaten by 
a computer, in a thorough match. 
The human was a poor loser: he blamed it on "bad luck". He refuses to admit that 
the computer has more skill than he. Nevertheless, the computer is now the world 
champion. 
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ARCADE GAMES 
The first popular arcade game was Pong, which made the computer crudely imitate a 
game of ping-pong. Then came Space /nvaders, in which you had to shoot aliens who 
were dropping bombs on you. 

Those games restricted you to moving in just one direction. The first popular 
arcade game that let you move two-dimensionally was Asteroids, which let you move 
through the sky while dodging asteroids and enemy space ships. s 

Those outer-space and sports games appealed mainly to boys. The first arcade 
game that appealed mainly to girls was Pac Man, a non-violent fantasy in which you 
moved through a maze full of food and tried to gobble as much as possible, before 
ghosts gobbled you. It appealed especially to dieting girls who dreamed of pigging 
out without getting caught. 

In all those games, the graphics were crude. The first arcade game that used 
professional graphics was Dragon's Lair, which contained a video disk full of 
animated cartoons drawn by artists who had worked at Walt Disney Studios. To 
dodge obstacles that appear in the cartoons, you move your joystick, which changes 
the action that the cartoons display. 

Each year's arcade games reflect the latest fads. For example, you can play 
arcade games about break-dancing and kung-fu. 


GAME WATCHES 7 
A game watch is a digital wrist watch that can play a video game. If you're stuck in 
the middle of a boring business meeting, look at your game watch. 
When your colleagues see you looking at your watch, they'll think you're an 
impatient executive tracking the time. Meanwhile, you're just having fun! 


OLYMPICS 
In 1980, Tim Smith quit his job at Burroughs and spent the next 9 months 
programming Olympic Decathlon, which made the Radio Shack Model 1 computer 
imitate all ten of the decathlon's events. 

In his game, one of your fingers represents your left leg, and another finger 
represent your right leg; to "run", you tap those fingers (left, right, left, right) as 
quickly as possible on the keyboard. By using those fingers and others, you 
compete in all ten events: the 100-meter dash, long jump, shot-put, high jump, 
400-meter dash, 110-meter hurdles, discus throw, pole vault, javelin throw, and 
1500-meter run. You can play solo or against your friends. At parties, you can form 
teams and cheer each other on. 

Later, he wrote versions for the Apple 2 and the IBM PC. They're published by 
Microsoft. 

A competing company, Epyx, has invented a variation that displays better 
graphics. It comes on a pair of disks, called Summer Games and Summer Games 2. It 
plays the national anthems of all major countries and includes sixteen games: pole 
vault, diving, 4x400-meter relay, 100-meter dash, gymnastics, freestyle relay, 
100-meter freestyle, skeet shooting, triple jump, rowing, javelin, equestrian, high 
jump, fencing, cycling, and kayaking. It runs on all popular computers: IBM, Mac, 
Apple 2, C64, Amiga, and ST. 


SPORTS HEROES 
One-on-One accurately imitates a basketball shooting match between two stars: 
Larry Bird and Julius ("Doctor J") Erving. The program imitates each player's 
personal strengths and weaknesses. You can take the role of either player and try to 
avoid getting creamed by the other. Programmed by Eric Hammond with help from 
Larry and Doctor J, it's published by Electronic Arts. 
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ADVENTURE 


ORIGINAL ADVENTURE 
Adventure is a game where you hunt for treasure. The original version of Adventure 
was written by Will Crowther & Don Woods, on a PDP-10 maxicomputer at Stanford 
University's Artificial Intelligence Lab. 

When you run the program, the computer says you're at the end of a road, near a 
shack, and says the computer will act as your body: and understand any two-word 
command. Then it waits for you to give it acommand. You can tell it to GO NORTH or 
GO FORWARD or—if you're going along a stream—you can say FOLLOW STREAM or 
GO DOWNSTREAM. 

The first time you play this game, you feel lost--the game is an adventure. As 
you wander in whatever direction you please, the computer says you're going 
through forests, across streams, over hills, etc. 

Finally, after much aimless wandering, you'll eventually see a stream which, if 
you follow it, leads you to a mysterious iron grate. If you try to BREAK GRATE, the 
computer says you're not strong enough. If you try to OPEN GRATE, the computer 
Says you have no keys. Your curiosity aroused, you start feeling frustrated. 

Then the computer offers to give you a hint—but the hint will cost you several 
points. If you acquiesce, the computer will give you this hint: find the keys! 

To find the keys, the average idiot who plays this game tries wandering through 
the forests and valleys again. But if you're smart, you'll remember that at the 
beginning of the adventure you were next to a shack; so you go back to the shack, 
walk inside, and lo and behold, you find the keys! So you trek back to iron grate, 
and use the keys to get in. And you think—aha! — you've almost solved whatever the 
problem is. 

But actually, you've just begun! The grate leads you into a cave that contains 
130 rooms, which form a big three-dimensional maze. Somewhere in the maze lie 15 
buried treasures. But as you walk through the maze, you tend to keep forgetting 
where you are and where you've come from; you can waste lots of time just walking in 
circles, without realizing it! 

To add to the challenge, the cave contains many dangers, such as trap doors (if 
you fallin, you break every bone in your body!) and trolls and snakes, which you 
must ward off by using various devices which you must find in the cave's rooms or 
even back at the shack. Yes, you might have to trek all the way back to the shack 
again! 

Finally, after dodging all the evil things in the cave, you get to the treasures. 
You pick them up and start walking away with them. But then you hear footsteps 
behind you. And the pirates steal your treasure! Then you must chase the pirates. 

If you manage to retain your treasures and your life and get out of the cave, that 
doesn't mean you've won. The nasty computer keeps score of how wel/ you retrieve 
the treasures. 

The maximum possible score is 350. After you've played this game many times and 
learned how to duck all your adversaries quickly, you'll find your score is still only 
349, and you'll wonder what you did wrong that cost you 1 point. The answer is: 
during the adventure, you must borrow magazines from a room in the cave; to get 
the extra point, you must return them! 

The game is a true adventure, because as you wander through forests and the 
rooms in the cave, the computer tells what you see, but you don't know whether what 
you see is important. For example, when you walk into a room, the computer might 
say the room contains a small cage. That's all it says. You must guess whether the 
cage has any significance, what that significance would be, and what you should do 
to the cage, if anything. Should you pick it up? Try to break it? Kiss it? Carry it? 
Try anything you like—give any command to your computer-body that you 
wish—and see what happens. 
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Here's a list of the most useful commands. To move to a different room in the 
cave, say to GO NORTH, SOUTH, EAST, WEST, UP, or DOWN. (You can abbreviate: 
instead of typing "GO NORTH", just type "N".) Whenever you see a new object, 
TAKE it, so it winds up in your hands, and you can carry it from room to room and 
use it later, whenever you need it. If you see a new object and want to TAKE it, but 
your hands are already full, DROP one of the other objects you're carrying. To see a 
list of what you're carrying, tell the computer to take INVENTORY. To see a 
description of your surroundings again, say LOOK. To see your score so far, say 
SCORE. If you say SAVE, the computer will copy your current position onto the 
disk, so you can return to that position later. If you ever want to give up, just say 
QUIT. 

Throughout the game, the writing is lyrical. For example, the computer 
describes one of the rooms as follows: "You are in a splendid chamber thirty feet 
high. The walls are frozen rivers of orange stone." 

The game is an adventure about a person exploring a cave; but since you're the 
person in the adventure, and since you can type whichever actions you wish, you 
affect the way the adventure story progresses and ends. Since it's high-quality 
story-telling whose outcome is affected by your input, it's called interactive fiction. 


MICROCOMPUTER VERSIONS 
Although Adventure was originally written for a PDP-10 maxicomputer, you can get 
an exact imitation for microcomputers. 

The first imitations were published by Microsoft (for the Apple 2) and Creative 
Computing (for CP/M computers); but those imitations are no longer actively 
marketed. Today, the best imitation for microcomputers is included on a disk called 
Golden Oldies, published by Software Country and distributed by Electronic Arts. 
The disk includes four programs: Adventure, Eliza, Pong, and Life. It's available 


for the Apple 2e & 2c, Apple Macintosh, IBM PC, Commodore 64, Commodore Amiga, 
and Atari 800 XL. 


INFOCOM 
After Adventure was invented, several programmers invented a variation called 
Zork. The main technical advantage of Zork over Adventure is that Zork lets you 
input long sentences, instead of restricting you to just two-word phrases. Like 
Adventure, Zork consists of hunting for treasures in a cave. To reach the cave, you 
enter a house and then go to the basement. . 

Like Adventure, Zork originally ran on a PDP-10 computer. Infocom has 
published versions of Zork for microcomputers. Versions for the Apple 2e & 2c, 
Apple Macintosh, IBM PC, Commodore Amiga, Atari ST, and Radio Shack Models 3 & 
4 cost $39.95. Versions for the Commodore 64, Atari 800 XL, and Radio Shack Color 
Computer 2 cost just $34. 95. 

Zork sold so well that Infocom published sequels, called Zork 2 and Zork 3. Then 
Infocom published other variations, where the cave has been replaced by 
experiences in outer space, or by thrillers involving spies, murders, mysteries, and 
haunted castles. Infocom's latest big hits are The Hitchhiker's Guide to the Galaxy 
(based on the award-winning wacky outer-space novel by Doug Adams) and Leather 
Goddesses of Phobos (which lets you choose among three naughtiness levels, from 
"prude" to "lewd"; if you choose "lewd", the computer asks whether you're at least 
18; the computer also asks whether you're male or female, and you get a titillating 
3-D comic book and a scratch-and-sniff card). 


Infocom used to be an independent company, but it was recently acquired by 
Activision. 
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SIERRA ON-LINE 
Shortly after Infocom developed the microcomputer version of Zork, Sierra On-Line 
developed Super Stud Adventure, which was quickly renamed Softporn Adventure. 
Instead of exploring a cave, you explore a brothel. To get into the brothel, you must 
find the secret password (hint: go to the bathroom and look at the graffiti! ) and find 
enough money to pay for your pleasures (by taking a taxi to a casino and seeing what 
you can win). 

That was the first urban adventure, and also the first sexua/ adventure. The ad 
for it showed a photograph of the programmers (Ken & Roberta Williams) nude in a 
California hot tub. Fortunately, the water in the tub was high enough to cover any 
problems. 

The original adventure, Infocom adventures, and Softporn Adventure display 
well-written text but no graphics. They're called text adventures. 

The most ambitious graphics adventure ever created was Time Zone, published in 
1981 by Sierra On-Line. The Time Zone program is so long that it fills both sides of 6 
Apple disks; that's 12 sides altogether! In fact, the game is so long that nobody's 
every finished playing it! Here's how to play... . 

You use a computerized "time machine", which transports you to 9 times (400 
million B.C., 10000 B.C., 50 B.C., 1000 A.D., 1400, 1700, 1982, 2082, and 4082) 
and 8 locations (North America, South America, Europe, Africa, Asia, Australia, 
Antarctica, and Outer Space). Wherever you go, your screen shows a 
high-resolution color picture of where you are; for example, if you choose 
"approximately 1400", Christopher Columbus will welcome you aboard his ship. 
Altogether, the game contains over 1400 pictures! You travel through history, 
searching for clues that help you win. 

Time Zone is well-researched: it's historically accurate. And it doesn't let you 
cheat. For example, in the year 2082, you find a book of matches; using your time 
machine, you can carry the matches back to 1982 but not back to 1700—because 
matches weren't invented until 1800. 

Living through history isn't easy. Jonathan Rotenberg, president of the Boston 
Computer Society, played the game and said: 


I've been killed dozens of times. I've been assassinated by Brazilian terrorists, 
karate-chopped by a Brazilian monk, eaten by a tyrannosaur, crushed in an Andes 
avalanche, stampeded by a buffalo, overcome by Antarctic frostbite, and harpooned 
by Mayan fishermen. 


And you see it all in color! 
Time Zone sold for $99.95. Unfortunately, teenagers didn't buy it, because it 
took too long to win and was too expensive. Sierra On-Line has stopped selling it. 
Recently, Sierra On-Line has made Softporn Adventure even more exciting, by 
adding graphics. The new graphic version is called Leisure Suit Larry in the Land of 
the Lounge Lizards. 


CREATIVE COMPUTING 

Dave Ahl, publisher of Creative Computing Magazine, took a famous movie, Roller 
Coaster, and copied it onto a videodisk. Then he attached the videodisk player to 
the computer, so the computer could control which part of the movie you'll see. He 
wrote an adventure game, so that location and each action is illustrated by a 
10-second clip from the movie. The goal of the adventure game is to save your 
friends, before they ride on a roller coaster that crashes. It's the world's first video 
adventure. Your actions determine which part of the movie you see next, which 
disaster scenes you manage to avoid, and the fate of your friends. It's the world's 
first interactive movie. 

Although Dave and his friends all play the game and love it, the Actors Guild 
refuses to let Dave distribute the game to strangers. The Guild claims that when 
Dave shows the scenes in an order different from the original movie's, he's 
destroying the "artistic integrity" of the actors' performances. 

Ha! Does the Guild really believe that a grade-B horror flick has any artistic 
integrity at all? 
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SPINNAKER 

Spinnaker publishes the Windham Classics, which is a series of adventure games 
based on kid's novels. You become Dorothy in The Wizard of Oz, Jim Hawkins in 
Treasure Island, Fritz in Swiss Family Robinson, Alice in Alice in Wonderland, and 
Green-Sky in Below the Root. The games include graphics. To make those adventure 
games easy, the computer offers hints whenever you get stuck: the computer will 
print a list of words to try typing. Each computerized novel costs just $9. 95 for the 
Commodore 64, $39.95 for the Apple 2e & 2c and IBM PC. They're published by 
Spinnaker. 

Spinnaker also publishes Te/arium Software, based on novels that are more adult. 
You become Perry Mason in The Case of the Mandarin Murder, the crime reporter in 
Agatha Christie's The Scoop, the researcher in Michael Crichton's Amazon, and the 
major characters in Fahrenheit 451, Rendezvous with Rama, Dragonworld, and Nine 
Princes in Amber. 

The Perry Mason one, besides being fun, also trains you to become a lawyer. It 
comes with a lawyer's handbook that explains the 6 ways to object to the prosecutor's 
questions: you can complain that the prosecutor is asking an IRRELEVANT question, 
relying on HEARSAY, BROWBEATING the witness, LEADING the witness to a 
suggested answer, getting an OPINION from a person who isn't an expert, or trying 
to get facts from a person who's UNQUALIFIED to know them. 

To make sure you understand those six ways to object, the handbook includes a 
multiple-choice test about them. The test is titled "Study Guide for the California 
Bar Exam". 

The game also lets you invent your own questions for the witnesses, and give 
commands to your secretary (Della Street) and detective (Paul Drake). It costs 
$39.95 for the Apple 2e & 2c and IBM PC, $32.95 for the Commodore 64. The other 
games in the Tellarium series cost the same or less. 


BRODERBUND 
Broderbund has published a game called Where in the World is Carmen Sandiego? You 
try to catch and arrest the notorious international thief, Carmen Sandiego, and the 
other thieves in her organization, called the Villains' International League of Evil 
(V.I.L.E.), as they flee to 30 cities all over the world. 

To help you understand those 30 cities, the game comes with a geography book: 
the 928-page unabridged edition of The World Almanac and Book of Facts. 

As you play the game, you unearth clues about which cities the thieves are 
fleeing to. But to use the clues, you must look up facts in the almanac. By playing 
the game, you learn how to use an almanac, and also learn geography. When you 
deduce which city to travel to, the screen shows a map of the world, shows you 
traveling to the city, and then shows a snapshot of what the city looks like, so that 
the game also acts as a travelogue. 

Because the game is so educational, it's won awards from Classroom Computer 
Learning Magazine and the Software Publishers Association. 

Strictly speaking, it's not a true adventure game, since it does not let you input 
your own words and phrases. Instead, you just choose from menus, which make the 
game easier for youngsters. 

Broderbund has created a sequel, called Where in the USA is Carmen Sandiego?, 
in which Carmen and her friends roam around the United States. They—and 
you—visit all 50 states. The game comes with a USA geography book: Fodor's USA 
Travel Guide. 

For the Apple 2e & 2c, the world version costs $39.95, and the USA version costs 
$44.95. Versions are also being developed for the Commodore 64 and the IBM PC. 
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| ELECTRONIC ARTS— 
My favorite adventure is Amnesia, published recently by Electronic Arts for the 
Apple 2e & 2c and IBM PC. Like Softporn Adventure, Amnesia takes place in a city; 
but Amnesia is far more sophisticated than its predecessor. 

When you start playing Amnesia, you wake up in a hotel room in New York City. 
You discover you have no clothes (you're stark naked), no money (you're flat 
broke), and no recollection of who you are—because you're suffering from amnesia. 
You don't even remember your name. 

You look at yourself, and notice you're a male. Your first problem is to get some 
clothes and money. But then you learn you have other problems that are even more 
serious. For example, you get a call from a guy who reminds you that today is your 
wedding day, and that if you don't hurry up and marry his daughter without further 
mess-ups, he'll use his pistol. You also discover that the FBI is looking for you, 
because the state of Texas has reported that you're a murderer. 

After getting some clothes (so you can stop scaring the hotel's maids), there are 
several ways to get out of your jam. (I've tried them all! ) 

One way is to say "yes" to the pistol-packing papa and marry his daughter, who 
takes you to Australia, where you live on a sheep ranch for the rest of your life. But 
then you never learn who you really are! Whenever you ask your wife about your 
past, she simply says, "You wouldn't want to know." You die of old age, peacefully; 
but even on your deathbed, you don't learn who you are; and so when you die, you 
feel sad. In that case, you score lots of points for survival, but zero for detective 
work and zero for character development. 

A different solution is to say "no" to the bride and—after getting bloodied—run 
out of the hotel, onto the streets of New York. Then the fun begins— because hiding 
on the program's disks is a complete map of Manhattan (from Battery Park all the way 
up to 110th Street), including all the streets and landmarks and even all the subway 
stops! Yes, this gigantic game includes 94 subway stations, 200 landmarks, and 
3,545 street corners. 

As you walk one block north, then one block east, etc., the computer describes 
everything you pass, even the most sublime (The Museum of Modern Art) and the 
most ridiculous (Nedick's hamburger stands). You can ride the subway—after you 
get enough money to buy a token. The game even includes all the subway signs, 
such as "Downtown--Brooklyn" and "Uptown--Queens". To catch the E train, you 
must hop in as soon as it arrives. Otherwise, it departs without you, and the 
computer says "an F train comes" instead. 

As night falls, the computer warns you to find a place to sleep. (You can't go 
back to your hotel, since you're in trouble there.) To find a free place to stay, you 
can try phoning the names in your address book-—once you find a phone booth, and > 
get a quarter to pay for each call. The address book contains 17 listings: J.A., 
A.A., Chelsea H., drugs, F°, Sue G., E.H., interlude, kvetch, J.L., R&J, sex, 
soft, Lila T., T.T.T.T., and Wit's End. Each of those listings is an adventure in 
itself, and you must explore each of them thoroughly, to fully discover who you 
really are. 

If your body ever gets weak (from sleeplessness or hunger or being hit by too 
many muggers), you faint on the sidewalk, wake up in a hospital, and get found 
there by the FBI, which returns you to the state of Texas, which executes you for 
murder. But even that deadly ending has a cheery note. For example, you can 
choose your last meal: would you like steak and potatoes, or turkey? When you 
finally die, you can wind up in purgatory, which consists mainly of getting mosquito 
bites, with a opportunity to take a row boat to heaven, if you can just remember your 
real name and tell the boatman. 

The entire adventure has the structure of a good novel: a gripping introduction 
(you're a nude, broke, amnesiac groom in a hotel), a thorough development section 
(wandering through the streets of New York, searching for your identity and the 
meaning of life), and a conclusion (a whimsical death scene, or something better). 
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The text was written by Thomas Disch, the award-winning sci-fi novelist. It's 
lyrical. For example, when you escape from the hotel and walk out onto the streets of 
New York, the computer says: "It feels great to be a single faceless, nameless atom 
among the million others churning about in the grid of Manhattan's streets. It feels 
safe." 

The game preys on all our nightmares about New York, and combines them into a 
wild adventure that's exciting and fun. 

The game has affected me personally. Now whenever something in my life goes 
wrong, I don't groan about it; instead I just say, "I'm in another wild part of 
Amnesia!" In Amnesia, as in life, you can't score top points for living, until you've 
experienced it a//. To live life to the fullest, you must take risks, be willing to face 
unknown dangers, and revel in the excitement of the unexpected. 
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FALL 12 LOVE 


HISTORY 
Can the computer help you fall in love? Here are some famous attempts, in chronological 
order. (I've rounded all dates to the nearest 5 years.) 


TELEVISION LOVE (1960) 
A computer appeared on national television, to make people fall in love. 

Guys and gals in the audience answered questionnaires about their personality and 
fed them into the computer. The computer chose the guy and gal that were most 
compatible. That guy and gal had their first blind date on national television. 

Each week, that scenario was repeated: the computer chose another couple from the 
audience. . 

Each lucky couple appeared on the show again several weeks later, so the audience 
could find out whether the couple was in love. . 

One of the couples was unhappy: the gal didn't like the guy, even though she 
wanted to like him. She volunteered to be hypnotized. So, on national television, a 
hypnotist made her fall in love with her partner. 

The computer was a huge Univac. Today, the same kind of matching could be done 
with a microcomputer. Any volunteers? 


COMPUTER-DATING SERVICES (1965) 
College students began relying on computers, to find nes Here's how the typical 
computer-dating service worked. 

You answered a long questionnaire— about 8 pages. The questionnaire asked about 
your sex, age, height, weight, hair color, race, religion, how often you drank and 
smoked, how "handsome" or "attractive" you were (on a scale of 1 to 10), how far you 
wanted to go on your first date, whether you wanted to get married soon, and how many 
children you'd like. It also asked many questions about your personality. 

One of the questions was: 


Suppose you receive in the mail some spoons you didn't order. The accompanying note 
says the spoons were sent by a charitable organization, and begs you to either send a 
contribution or return the spoons. You don't like the spoons. What will you do? 

1. Keep the spoons without paying. 

2. Return the spoons. 

3. Pay for the spoons. 


Another question was: 


A girl returned from her date after curfew. Her excuse was that her boyfriend's car 
broke down. What's your reaction? 


Again, you had a multiple-choice answer. One of the choices was, "Ha!" 

For each question, you had to say how you would answer it, and how you'd want 
your date to answer it. That was tough. What if you wanted your date to be stunningly 
beautiful but also humble? What if you wanted to meet somebody who was so ugly that 
the person would be "desperate" to have sex with anybody? Such issues were debated 
in college dorms throughout the nation. 

After completing the questionnaire, you mailed it with about $10 to the computer-dating 
service. Within two months, the service would send you the names, addresses, and 
phone numbers of at least 5 people you could date. If your personality was very easy 
to match, the service might send you more than 5 names; but even if your personality 
was lousy, you'd get at least 5. Moreover, you'd get updates every few months, 
throughout the year. That way, you could be matched with people who enrolled several 
months after you. 

The most popular computer-dating service was "Operation Match", started by students 
at Harvard. Its main competitor was "Contact", started by students at M.I.T. Both 
services quickly became profitable and had subscribers from all across the country. 
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One gal had such a wonderful personality that the computer matched her with 110 guys! 
She had to explain to her mom why 110 guys were always on the phone. And she had to 
figure out how to say "no" to 109 of them. 

Two gals who shared a dorm room fed their names into the computer. One of the gals 
got matched to the other gal's boyfriend. They didn't stay roommates long. 

When I was a freshman, I applied to both services, to make sure I'd meet "the gal of 
my dreams". "Contact" sent me names of gals at prestigious schools (such as Wellesley 
and Bennington), while "Operation Match" sent me names of gals at schools such as 
the State University of New York at Albany. I thought I was the only nut desperate 
enough to apply to both services. But I got a surprise: when I looked down the list of 
names from "Contact" and the list of names from "Operation Match", I found a gal who 
appeared on both lists! She, like me, had been desperate enough to apply to both 
services! And both computers agreed that she and I would be a perfect match! 

I had a date with her. But I couldn't stand her. 

When I had answered the questionnaire, I was a very bashful boy, so the computer 
matched me to bashful girls. But by the time I received the computer print-out, I'd 
become wilder, and the girls the computer matched me to were no longer "my type". 

"Contact" raised its price to $15, then $20. But $20 was still cheap— when you 
consider what you were getting. 

"Contact" put a cute ad in the newspaper. It seemed to be selling groceries. It said, 
"Dates— 2¢ per pound". The ad went on to explain that one gal got so many dates that, 
when she totaled the weight of their bodies, she figured they cost her 2¢ per pound. 


THE DARTMOUTH DATER (1965) 
At Dartmouth College, which was all-male, one of the students wrote a cruel program to 
evaluate dates. It asked lots of "practical" questions, such as "is she pretty" and "how 
far away does she live" and "does she have a car". I put down that I was dating a 
14-year-old girl who was 7 feet tall and weighed 300 pounds but had a perfect personality: 
I gave her personality a 10, and even said that she lived nearby and had a car. In spite 
of her excellent personality, the computer didn't like her. The computer said: 


SHE MUST BE PREGNANT. WHERE DID YOU GET THAT PIG? 
WORST SCORE YET PRODUCED BY THIS COMPUTER! 


VIDEO DATING (1975) 

During the 1970's, people wanted everything to be natural. They wanted "natural food" 
and "natural love". 

Computerized love seemed unnatural, and its popularity declined. "Operation Match" 
and "Contact" went out of business. 

They were replaced by video dating. You go to a video-dating service, which makes 
videotapes of guys and gals and shows them on private television. When you apply to 
the service, the service makes a videotape of you. Then the service shows you videotapes 
of people of the opposite sex, and you choose the person you'd like to date. That way, 
you never have a "blind" date: you see the person on videotape before you make the date. 

The video-dating service tapes thousands of people. But you don't have enough time 
to look at thousands of tapes. So the video-dating service tells you to answer a 
questionnaire; your questionnaire is fed into a computer, which tells which people 
you're most compatible with. Then you look at those people's tapes. 
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COMPUTER DANCING (1975) 
At a Connecticut prep school (Hotchkiss), the head of the computer center arranged 
a "computer dance". 

All the students in the school answered questionnaires, which were fed into a 
computer. The computer matched the boys with the girls, so that each boy got one 
girl. The boy had to take the girl to the dance. 

The night before the computer announced the dancing partners, the computer-center 
staff stayed up late. In the morning, when the students came to school, the students 
found all the halls covered with strips of punched paper tape, saying, in billboard-style 
letters, messages such as "George Smith & Mary Jones". If you were a student, you 
looked up and down the halls (your heart beating quickly), to find the tape that had 
your name on it, with the name of your mysterious computer lover. 

Shrieks and groans. "Aarrgghh! You wouldn't believe who the computer stuck me with!" 


COMPUTER WEDDINGS (1980) 
Here's how the first true "computer marriage" occurred.... 

One company's terminal was attached to another company's computer. A programmer 
at the first company often asked a programmer at the second company for help. They 
contacted each other by typing messages on their terminals, and let the computer relay 
the messages back and forth. One of the programmers was a guy, the other was a gal, 
and they fell in love, even though they had never met. Finally, the guy typed on his 
terminal, "Let's get married". The gal typed back, "Yes". And so they got engaged— 
even though they had never met. Their marriage ceremony used three terminals: one for 
the guy, one for the gal, and one for the mininster. The minister typed the questions 
at his own terminal; then the guy and gal typed back, "I do". 

Another example of a computer wedding is "Reverend Apple". It's an Apple computer, 
programmed to perform a marriage ceremony. It performed its first marriage on 
Valentine's Day, 1981. The groom was a guy named Richard; the bride was a gal named 
Debbie. The computer printed the standard wedding-ritual text on the screen, and 
then asked the usual questions. Insead of answering "I do", the bride and groom just 
had to type "Y". 

"Reverend Apple" is smart. For example, if the bride or groom types "N" instead of 
"Y", the computer beeps, tells the couple to try again, and repeats the question. 

The program was written by M.E. Cavanaugh at the request of Rev. Jon Jaenisch, 
who stood by "Reverend Apple" while the ceremony was being performed. Rev. Jaenisch 
is a minister of the Universal Life Church— the church that lets you become an 
"ordained minister" by simply paying $5, and lets you become a "doctor of divinity" 
by paying just $20. Rev. Jaenisch is known as the "Archbishop in Charge of 
Keyboarding". For his next feat, he plans to make the computer perform divorces. 

He also uses the computer to persuade kids to come to church. He claims, "What better 
way to get kids into church than by letting them play with a computer? It's more 
interesting than praying." 

For a while, "Reverend Apple" was retired, because Jaenisch couldn't interest 
enough couples. He complained, "It's not easy to convince people to get married by 
a computer. They don't think it's romantic." NBC television news and many newspapers 
wanted to interview him; but he became embarrassed, because he couldn't find enough 
couples. And anyway, he's a reverend only part-time. His main job is as an employment 
agent: he's supposed to help companies find programmers. He thought Reverend Apple's 
reputation would help him find programmers, but it didn't. 

But Reverend Apple is finally starting to catch on. During its first eight months, 
it performed six marriages. Jaenisch says, "The first couple had nothing to do with 
computers professionally: the groom drove a tow-truck and was an hour late for the 
ceremony because he wanted to work overtime. But the second couple was very 
involved with computers: they even asked for a printout of the ceremony." For the 
sixth ceremony, the groom (who earns his living by fixing computer power supplies) 
says, "It was nice with our friends all gathered around the console, and someone 
brought champagne. But part of our vow was to never buy a home computer: we have 
to get away from machines sometime." 
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LOVE BUG (1980) 

You can buy a Love Bug. It's a small computerized box that you put in your pocket. You 
feed the box information about your personality. When you walk through a singles bar, 
if you get. near a person of the opposite sex who's compatible and has a Love Bug also, 
your Love Bug beeps. As you and the other person get closer and closer, the Love Bugs 
beep to each other ever more violently. The more violently your Love Bug beeps, the 
closer you are to your ideal partner. 

Using a Love Bug to find a date is like using a Geiger counter to find uranium. The © 
louder the Love Bug beeps, the louder your heart will pound. 


SELECTROCUTION (1980) 
If you don't like the Love Bug, how about a love bi//board? One company sells 
love billboards to singles bars. 

Each person who enters the bar gets to wear a gigantic name tag, which shows 
the person's initials. For example, since I'm Russ Walter, my tag would say, in 
gigantic letters, "RW". If I see an attractive gal whose tag says "JN", and I like her 
smile, I tell the person who operates the billboard. A few seconds later, a gigantic 
computerized billboard hanging over the entire crowd flashes this message: 


FOR JN FEMALE: YOU HAVE A NICE SMILE--RW MALE 


Everybody in the bar sees my message. When the gal of my dreams, "JN female", sees 
it, she hunts for "RW male", and we unite in computerized joy. 

That's great for bashful people, like me, who'd rather pass notes than face a 
stranger unprepared. 

It's called Se/ectrocution, because it gives your social life an electronic tingle that 
ends all your problems. 


INTERLUDE (1980) 

The most provocative sex program is /nter/ude. It interviews both you and your lover, 
then tells you what sexual activities to perform. Some of the activities are quite risqué. 
(Puritans think the program should be called "Inter Lewd". ) 

The program runs on your Radio Shack or Apple computer. (The explicit full-color 
ad shows a half-clad girl on satin sheets caressing her Apple. ) 

The program is based loosely on Masters-and-Johnson sexual therapy. It interviews 
each person separately— and privately— and then recommands a sexual interlude. _ 

During the interview, the computer asks you questions such as: 


HOW LONG WOULD YOU LIKE THE INTERLUDE TO LAST? 


You can choose any length of time, from "several seconds" to "several days". If you 
choose "several seconds", the computer will recommend that while driving home from 
a party, you put your lover's finger in your mouth and seductively caress it with 
your tongue. If you choose "several days", the computer will recommend that you 
tell your lover to meet somebody at the airport. When your lover arrives at the 
airport, your lover finds you there instead; you tell your lover that the two of you 
are going on a surprise vacation, and that you've already bought the tickets. 

The computer also asks questions such as: 


DO YOU LIKE SURPRISES? 


You have several choices: you like to give surprises; you like to be surprised; or you 
don't like surprises at all. If you like to be surprised, and your lover likes to give 
surprises, the computer will tell you to leave the room; after you've left, the computer 
will give secret information to your lover, about the best way to surprise you. 

The computer asks which parts of the body you like. (One of the choices is: 
"pbuttocks".) The computer also asks which kinds of accessories you like. (One of 
the choices is: "whips and chains".) The computer asks whether you want the interlude 
to occur "immediately" or "later": if you say "later", the computer will recommend that 
you buy elaborate props, to make the interlude fancier. 
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Some of the interludes are unusual. For example, if you're a woman and want to 
‘surprise your husband, the computer recommends that you call his office and invite 
‘him home for lunch. When he arrives, he finds all the shades pulled down: you do a 
‘nude dance on the table, then sit down to eat. 

During the interview, the computer's questions are often corny. For example, 
‘the computer asks: 


|/IF YOUR INTERLUDE WERE ON T.V., WHAT SHOW WOULD IT RESEMBLE? 


‘Sample choices are "Three's Company", "Roots", and "a commercial". If you say "Roots", 
‘the computer says "heavy!" If you say "a commercial", the computer says "yecch!" 

The computer asks how much sex you'd like. If you say "lots!" but your lover 
isays the opposite, the computer will recommend that you take a cold shower, to cool 
‘your hot passion. 

If you've been married for at least twenty years, you'd probably like to change a 
few things about your sex life but are afraid to tell your spouse that you've been less 
than thrilled. You'd like an intermediary to whom you can express your anxieties and 
who will pass the message to your spouse gently. The Interlude program acts as that 
intermediary, in a playful way. 

Interlude's programmer says he created it because he was tired of hearing people 
wonder what to do with their personal computers. Once you've tried the Interlude 
program, your personal computer will suddenly become very personal! 

It's rated R. To avoid an X rating, it insists on having one man and one woman: 
it doesn't permit homosexuality or group sex or masturbation. Sorry! 

The program came out in May, 1980. Within a year, ten thousand copies were sold. 

In 1986, an improved version was invented: /nterlude 2. It's available for the IBM 
PC and the Apple 2e & 2c. Youvcan get the disk for $39.95 (plus $3 shipping) from 
Recreational Technology (2900 Wilcrest, Houston TX 77042, phone 800-752-7001 
extension 829; if you're in Texas, phone 800-442-4799 extension 829). 


PORNOPOLY (1980) 

To have an orgy, try this trick. Invite your friends over for a "game". Tell them it's 
a computerized version of Monopoly. When they arrive, surprise them by telling them 
they'll play Pornopoly, the computerized version of Monopoly that's rated X. 

In Pornopoly, you buy and sell property, just as in Monopoly. But the streets have 
names such as Bedroom Avenue, Horny Avenue, Hot Jugs Avenue, Jock Strap Place, 
and Orgasm Railroad. You get penalty cards such as: name 7 four-letter words that 
rhyme with duck. You might be told to play doctor, and conduct a physical examination 
of another player...or remove the pants of your favorite player by using only your 
teeth. When a player lands on a monopoly that you own, the player must take a drink, 
remove an article of clothing, kiss you, give you a free feel, or strip completely for 
two turns. At the end of the game, whoever remains dressed is the winner. 

This successful program has been featured on national television. Copies have been 
requested by Hugh Hefner, Johnny Carson, Rona Barrett, an army chaplain, and a 
dozen foreign countries. To add your own name to that list, try contacting Computer 
Consultants of Iowa (Box 427, Marion, Iowa 52302, 319-373-1306, if still in business). 

Pornopoly costs $30, but the company doesn't accept money: it accepts only 
Master Charge, Visa, and COD. If you're a kid, tough luck: the company says, 

"This is an adult party game rated XXX and some people may find it offensive." 

_ Among the offended is a New Orleans grandmother who read an article about the 
program and wrote this note to the company: "Thanks to you, I intend to start 
contributing to Moral Majority, something I have avoided until now." 

The program is available for Radio Shack, Apple, Commodore, and Atari computers. 
Infoworld (the microcomputing industry's scandal sheet) criticises the Atari version 
for its poor graphics, vague manual, and occasional bugs. If you try the Radio Shack, 
Apple, or Commodore version, tell me how you like it. And can I play? 
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BE POETIC 


THE TAOIST HIROSHIMA ELEVATOR (1961) 


In Italy, Nanni Balestrini created poetry by feeding the computer three passages: 


(from Lao Tzu's Tao Te Ching) "While the multitude of things comes into being, I 
envisage their return. Although things flourish, they all return to their roots." 


(from Michihito Hachiya's Hiroshima Diary) "The blinding fireball expands rapidly, 
thirty times brighter than the sun. When it reaches the stratosphere, the summit 
of the cloud takes on the well-known mushroom shape." 


(from Paul Goldwin's The Mystery of the Elevator) "...head pressed on shoulder, 
hair between lips, lay motionless without speaking, till he moved his fingers slowly, 
trying to grasp." 


He told the computer to mix them up. Here's the result: 
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Head pressed on shoulder, thirty times 

brighter than the sun, I envisage their return— 

until he moved his fingers slowly...And while the multitude 
of things comes into being, at the summit of the cloud 

they all return to their roots and take on 

the well-known mushroom shape, endeavoring to grasp. 


Hair between lips, they all return 

to their roots. In the blinding fireball 

I envisage their return— until he moved his fingers 
slowly— and although things flourish 

takes on the well-known mushroom shape, endeavoring 
to grasp, while the multitude of things comes into being. 


In the blinding fireball I envisage 

their return. When it reaches the stratosphere, while the multitude 
of things comes into being, head pressed 

on shoulder, thirty times brighter than the sun, 

they all return to their roots. Hair 

between lips takes on the well-known mushroom shape. 


They lay motionless without speaking. Thirty times 
brighter than the sun, they all return 

to their roots. Head pressed on shoulder, 

they take on the well-known mushroom shape, endeavoring 
to grasp. And although things flourish, 

they expand rapidly, hair between lips. 


While the multitude of things comes into being in the blinding 
fireball, they all return 

to their roots. They expand rapidly— until he moved 

his fingers slowly, when it reached the stratosphere 

and lay motionless without speaking, thirty times 

brighter than the sun, endeavoring to grasp. 


I envisage their return— until he moved his fingers 
slowly in the blinding fireball. 

They all return to their roots. Hair 

between lips and thirty times brighter than the sun 
lay motionless without speaking. They expand, 
rapidly endeavoring to grasp the summit. 


In Balestrini's program, Tao Te Ching was represented as four phrases: 


while the multitude of things comes into being 
I envisage their return 

although things flourish 

they all return to their roots 


Hiroshima Diary was represented as six phrases, and The Mystery of the Elevator as 

five. For each verse, the computer was told to choose nine phrases at random, and 

print them in a random order (never juxtaposing phrases from the same passage), to 

form six lines of roughly equal metrical length. Actually the computer printed the 

poem in capital letters, without punctuation; Balestrini himself then added the punctuation 
and polished the grammar. The whole thing was actually done in Italian; you've been 
reading Edwin Morgan's translation, with my punctuation. 


BUBBLES (1966) 

At Northwestern University, programmers made the computer compose nice poetry. 
To use their program, you type a list of nouns, verbs, and other words. The computer 
randomly chooses five of your words to be theme words. The computer combines all 
your words to form sentences, but chooses the theme words more often than the others. 
It combines the sentences into verses and tries to keep the lengths of the lines 
approximately equal. It puts a theme word into the title. 

In one poem, the computer chose bubble to be a theme word. The title was: ODE TO 
A BUBBLE. The poem contained phrases such as, "Ah, sweet bubble." The word 
bubble appeared so often that even the stupidest reader could say: 

"Oh, yeah. I really understand this poem. Ya see, it's about a bubble." 

The poem had all the familiar poetic trappings, such as "but alas!", which marked 
the turning point. (Cynics argue that the poem didn't rea//y have a turning point, 
since the computer didn't have the faintest idea of what it was saying! ) 
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KIDS AND PHYSICS (1968) 
In England at Manchester University, Mendoza made the computer write children's 
stories. Here's a story the computer composed: 


The sun shone over the woods. Across the fields softly drifted the breeze, while then 
the clouds, which calmly floated all afternoon, moved across the fields. 

Squirrel, who scampered through the trees, quickly ran off; and off noisily ran 
Little Grey Rabbit. She sniffed at the house; but out of the door noisily hurried Hare, 
who peered at slowly the flowers. Squirrel quickly scampered over the woods and 
fields, but Old Grey Owl flew over the woods and fields. Down the path to the woods 
ran Little Grey Rabbit, who then sniffed at a strawberry pie. 


The first paragraph uses these words: 
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Adverbs 
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over the woods 
across the meadows 
through the trees 
down 

for a long time 

all day 

all afternoon 

the grass 

the leaves of the trees 
the garden 

the flowers 

the little house 

the old oak tree 
the treetops 
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Additional words:, which, and, while, they, it 


(74) 


To construct a sentence, the computer uses that table. Here's how. First, the 
computer randomly chooses a noun. Suppose it chooses the sun. Then it looks 
across the row marked the sun, to choose a verb whose score isn't 0. For example, 
it's possible that the sun shone, but not possible that the sun melted. Suppose it 
chooses shone. Then it looks down the column marked shone, to choose an adverb 
and an ending. Notice that the ending can't be by, since its score is 0. No adverb 
has a score of 2, whereas gently has a score of 1; that makes no adverb twice as 
likely as gently. If the computer chooses no adverb and over the woods, the resulting 
sentence is: The sun shone over the woods. In fact, that's the first sentence of the 
story you just read. 

The computer occasionally changes the word order: instead of typing "The breeze 
drifted softly across the fields", the computer begins the second sentence by typing, 
"Across the fields softly drifted the breeze". To combine short sentences into long 
ones, the computer uses the words at the bottom of the table: which, and, while, they, 
and /t. If two consecutive clauses have the same subject, a pronoun is substituted: 
they replaces the clouds; it replaces the sun, the trees, and the sky. A which clause 
can modify any noun, but can't modify a pronoun. The verb in a which clause must be 
different from the one in the main clause. 
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Here's the vocabulary for the second paragraph: 


—— 


Nouns 

Little Grey Rabbit 
Old Grey Owl 
Squirrel 

Hare 


Verbs 
ow oo Scampered 
now pr co Munched and crunched 


cowo flew 


Oorow ran 
nme ow hurried 


meee sniffed at 
He oo peered at 


memo ate 


Adverbs 
then 

slowly 
quickly 
soon 
happily 
gaily 

noisily 

(no adverb) 
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Endings 
off 


over the woods and fields 
through the trees 

among the treetops 

into the home 

out of the door 

down the path to the woods 
about the garden 

the house 

the hollow tree 

an old oak tree 

the flowers 

two buns 

a strawberry pie 

six cabbages 


a 
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Additional words: who, and, but, she, he 


Here's another story the program produced: 


The breeze drifted by. Across the fields softly moved the clouds; and then the breeze, 
which calmly touched the treetops, drifted across the fields. Quietly the sun shone 
over the woods. The sky calmly shone across the fields. 

Out of the door ran Squirrel; and off hurried Hare, who munched and crunched 
two buns happily. Off slowly flew Old Grey Owl, and Squirrel soon ate two buns. 
Old Grey Owl, who peered at a strawberry pie, munched and crunched two buns; but 
noisily Little Grey Rabbit, who peered at an old oak tree, slowly ran down the path to 
the woods. Soon she hurried down the path to the woods, but then she sniffed at 
two buns. She hurried down the path to the woods. 


(76) 


Why did Mendoza make the computer write those stories? He explains: 


This work all began when a well-known scientist joined our physics department. He 
had spent several years away from academic life and was able to take a long cool 

look at academic procedures. He soon formed the theory that students never learned 
any ideas; all they learned was a vocabulary of okay words which they strung together 
in arbitrary order, relying on the fact that an examiner pressed for time would not 
actually read what they had written but would scan down the ppages looking for these 
words. I set out to test his hypothesis. 

I began by writing "Little Grey Rabbit" stories. I tested these stories out on my 
very small children; but after some minutes they grew irritable, because nothing 
actually happened. This shows that even small children of three can measure entropy. 

Then I altered the vocabulary and grammar— making the sentences all very dead— 
to imitate the style of physics textbooks. The endpoint came when a colleague at 
another university secretly sent me an exam a week before it was given to the students. 
I wrote vocabularies and copied down what the computer emitted. Using a false name, I 
slipped my paper in among the genuine ones. Unfortunately, it was marked by a very 
conscientious man, who eventually stormed into the Director's office shouting, "Who 
the hell is this man— why did we ever admit him?" So perhaps my colleague's hypothesis 
was wrong, and students are a little better than we think. 


Here are two of the computer's answers: 


In electricity, the unit of resistance is defined by electrolysis; and the unit of charge, 
which was fixed at the Cavendish lab in Rayleigh's classic experiments, was measured 
at the Cavendish lab. Theoretically, the absolute ohm is defined in a self-consistent 
way. The unit of resistance, which was determined with a coil spinning in a field, 

was fixed at the Cavendish lab; and this, by definition, is expressed in conceptual 
experiments. Theoretically the absolute ohm, which was redetermined using combined 
e.m.u. and e.s.u., is expressed by the intensity at the center of a coil. 


In this country, Soddy considered Planck's hypothesis from a new angle. Einstein 

00 years ago asserted quantisation. At a photocathode, electrons which undergo 
collisions in the Compton effect as energy packets or quanta are emitted at definite 
angles; nevertheless, particles in a photocell produce photoelectrons of energy hv=E). 
Photons in vacuo transmute into lower frequencies, and light quanta in the Compton 
effect emit emission currents. Particles emit current proportional to energy; electrons 
in vacuo interact with loss of surface energy (work function); nevertheless, particles 
which are emitted in a photocell with conservation experimentally are conserved with 
energy hy. The former, at a metal surface, undergo collisions with emission of current; 
and at a metal surface, electrons produce emission currents. Einstein assumed the gas 
of quantum particles; but quite recently Rayleigh, who quite recently solved the problem 
in an oldfashioned way, consideréd radition classically. Planck, who this century 
assumed the A and B coefficients, explained the gas of quantum particles but before 
Sommerfield; Rayleigh, who quite recently was puzzled on Boltzmann statistics, tackled 
the problem with disastrous results. Planck, who assumed the gas of quantum particles 
in 1905, this century considered the ultraviolet catastrophe; but quite recently Jeans, 
who tackled the problem in an oldfashioned way, was puzzled with disastrous results. 
Black body radiation that exerts thermodynamic forces in an engine is equivalent to a 
relativistic system. Out of a black body, a photon that is equivalent to (out of a black 
body) an assembly of photons is assumed to be a non-conservative system; at the same 
time, thermodynamically, black body radiation that in a piston is assumed to be a 
relativistic system exerts quantised forces. The radiation gas that obeys Wien's 
displacement law is considered as a system of energy levels. Quantally, a quantum 
particle exerts a Doppler-dependent pressure, although this produces equilibrium 
transition probabilities. Black body radiation in an engine produces equilibrium transition 
probabilities... 
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AEROSPACE (1968) 
In 1968, Raymond Deffrey programmed the computer to write fake reports about the 
aerospace industry. Shortly afterwards, I improved the program. The improved 
program contains these lists: 


Introductory phrases ; : 
in particular, on the other hand, however, similarly, as a resultant implication , 


in this regard, based on integral subsystem considerations, for example, thus, 
in respect to specific goals, utilizing the established hypotheses, moreover, 

in addition, in view of system operation, furthermore, to some extent, 
considering the postulated interrelationships, for the most part, indeed, 

based in system engineering concepts 


Noun phrases 


a large portion of the interface coordination communication , : 

a constant flow of effective information, the characterization of specific criteria, 
initiation of critical subsystem development, the fully integrated test program, 

the product configuration baseline, any associated supporting element, 

the incorporation of additional mission constraints, the independent function principle, 
a consideration of system and/or subsystem technologies, the sophisticated hardware, 
the anticipated third-generation equipment, the subsystem compatibility testing, 

the structural design, the preliminary qualification limit, 

the philosophy of commonality and standardization, 

the evolution of specifications over a given time, the greater flight-worthiness concept, 
any discrete configuration made, the total system rationale 


Verb phrases 
must utilize and be functionally interwoven with, 


maximizes the probability of success and minimizes time for, 

adds explicit performance limits to, necessitates that urgent consideration be applied to, 
requires considerable systems analysis to arrive at, 

"is further compounded, when taking into account", 

presents extremely interesting challenges to, 

recognizes the importance of other systems and necessity for, 

effects a significant implementation to, adds overriding performance constraints to 


To produce a typical sentence, the computer prints an introductory phrase, then 
a noun phrase, then a verb phrase, then a noun phrase. The phrases are chosen 
randomly. 

Each paragraph consists of six such sentences. The computer isn't allowed to use 
the same phrase twice within a paragraph. The introductory phrase is omitted from the 
first sentence of the first paragraph, the second sentence of the second paragraph, 
etc.; so the report can't begin with the word furthermore, and the style varies. 

Here's the beginning of one such report: 


The Economic Considerations of the Aerospace Industry 
A large portion of the interface coordination communication necessitates that urgent 
consideration be applied to the product configuration baseline. For example, the 
fully integrated test program adds explicit performance limits to the independent 
function principle. Moreover, the sophisticated hardware presents extremely 
interesting challenges to the philosophy of commonality and standardization. In view 
of system operation, a constant flow of effective information must utilize and be 
functionally interwoven with the preliminary qualification limit. In addition, any 
discrete configuration made adds overriding performance constraints to any associated 
supporting element. Thus, the anticipated third-generation equipment maximizes the 
probability of success and minimizes time for the total system rationale. 
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Moreover, the total system rationale. requires considerable systems analysis to 
arrive at the characterization of specific criteria. Any associated supporting element 
necessitates that urgent consideration be applied to the structural design. In this 
regard, the product configuration baseline is further compounded, when taking into 
account initiation of critical subsystem development. On the other hand, the 
preliminary qualification limit adds overriding performance constraints to the greater 
flight-worthiness concept. In respect to specific goals, the fully integrated test 
program effects a significant implementation to the philosophy of commonality and 
standardization. In view of system operation, the independent function principle 
recognizes the importance one other systems and BCC aSorey for the anticipated 
third-generation equipment.. 


ME-BOOKS (1972) 

In 1972, Freeman Gosden Jr. started the Me-Books Publishing Company. It published 
books for kids. But if you bought a Me-Book for your child, you wouldn't see in it 
the traditional names "Dick, Jane, and Sally"; instead, you'd see the name of your 
own child» To order the book, you had to tell the company the names of all your children, 
and their friends, and pets. Their names appeared in the story. 

The story was printed beautifully, in a 32-page hard-covered book with pictures in 
color. It cost just $3.95. 

You could choose from four stories: "My Friendly Giraffe", "My Jungle Holiday", 
"My Birthday Land Adventure", and "My Special Christmas". 

For example, if you lived on Jottings Drive, and your daughter's name was Shea, 
and her friend's name was Douglas, the story "My Friendly Giraffe" included paragraphs 
such as this: 


One morning Shea was playing with Douglas in front of her home. When she looked up, 
what do you think she saw walking down the middle of Jottings Drive? You guessed it. 
A giraffe! 


Ted Nelson, author of Computer Lib, played a trick. He ordered a copy of 
"My Friendly Giraffe", but pretended that his child's name was "Tricky Dick Nixon" 
who lived on "Pennsylvania Ave." in "Washington". Sure enough, the company sent him 
"My Friendly Giraffe: A Me-Book for Tricky Dick". Here are some excerpts: 


Once upon a time, ina place called Washington, there lived a little boy named Tricky 
Dick Nixon. Now, Tricky Dick wasn't just an ordinary little boy. He had adventures 
that other little boys and girls just dream of. This is the story of one of his adventures. 
It's the story of the day that Tricky Dick met a giraffe.. 

As the giraffe came closer and closer, Tricky Dick started to wonder how in the 
world he was going to look him in the eye.. 

Tricky Dick knew there were no jungles in Washington. Especially on Pennsylvania 
Ave. But Tricky Dick wasn't even a little bit worried. First, because he was a very 
brave little boy. And second, because he knew that his friend, the giraffe, would 
never take him anyplace bad.... 

Tricky Dick was home. Back in Washington. Back on Pennsylvania Ave. And with 
a story to tell his friends, that they wouldn't have believed if they hadn't seen Tricky 
Dick riding off on the giraffe's back. Tricky Dick would long be a hero to those who 
had seen him that day... 

There would be many other exciting adventures for Tricky Dick and his friends. And 
maybe, just maybe, if you're a very good boy, someday we'll tell you about those, too. 


Me-Books were commercially successful: many thousands of them were sold. Teachers 
liked the books, because the books encouraged students to read: students enjoyed 
reading books that contained their own names. 
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PORNOGRAPHY (1973) 
I programmed the computer to turn words into sentences. For example, Judith Ann 
Abrams fed the computer this list of words: 


Adjectives 

bitchy, creepy, dead, enthusiastic, evil, gaudy, green, gross, horny, insane, 
juicy, mixed-up, monstrous, multicolored, neurotic, obscene, paranoid, prickly, 
profane, provocative, repulsive, sensuous, sexual, sexy, shiny, sick, stimulating, 
strange, succulent, tasty, unsettled, weird 


Names 
Barbara, Buster, Clyde, Colin, Debbie, Ed Shanahan, Jeff, Keith, Kerri, Liz, 
Miles, Nicholson 700, Norwalk 


Nouns that aren't names 

bastard, bikini, bitch, boat, cigarette, creep, dress, ethanol, eyelid, tty) gambling, 
jerk, knee, kneecap, lip, mouth, navel, piece, pornography, shirt, stud, tongue, 
virgin, whiskey sour, whore 


Verbs that take an object 
bite, caress, castrate, climb, enjoy, kiss, knife, lick, pick, pull, rip, screw, shake, 


take off, teach, undo 


Verbs that don't take an object 
disapprove, fall down, fly, hesitate, sing, sleep, sleepwalk, sneeze, vanish, walk 


Exclamations 
rats, such language, ugh 


Here's what the computer printed: 


A Sexy, Profane Creep's Tongue 
by Judith Ann Abrams and the computer 
The lip is tasty. 

Ugh! 

The mouth is enthusiastic. Does the gaudy bastard sleepwalk? 

The tongue's whore caresses the bikini. When Nicholson 700 is screwing the creepy 
jerk over a piece, Jeff is teaching the gambling. Does paranoid Liz hesitate? Why does 
the tongue Kiss the creep stimulatingly on horny Buster? 

Undo! Pull the fly repulsively! A multicolored, enthusiastic cigarette is neurotic. 
Is a multicolored, weird dress's navel under the strange bikini? Why is the obscene 
dress's cigarette Colin's ethanol? Rats! Why is the dead, insane, tasty, shiny, knifing 
creep's bitch unsettled and strange? 

Clyde is over Ed Shanahan. Kissing the bastard, a paranoid ethanol is unsettled. 
Why is the prickly Kneecap's mouth on the creepy piece? Teaching Norwalk is sneezing 
paranoidly and grossly under provocative, shiny Debbie. As a sexy, walking tongue's 
virgin takes off the bitchy cigarette over the profane stud then castrates enthusiastic 
Miles's lip paranoidly, the dead, gaudy knee is stimulating and multicolored. Even 
though the dead, insane piece licks strangely and neuroticly in the flying, mixed-up 
eyelid's knee, the dead, biting, obscene bikini is on a repulsive mouth's gambling. 

The pornography is gaudy. Kerri sleepwalks. Why is the tongue sensuous? Buster 
is sick. Is Miles monstrous? Debbie is neurotic and paranoid, when a stimulating fly 
picks the navel's jerk under Ed Shanahan. Why is the dress succulent? Hesitating, a 
kneecap sleeps and climbs the dead, bitchy ethanol. As insane Colin's bastard falls 
down weirdly in a sensuous dress, green, unsettled Miles's virgin is strange and sexual. 

Is the creepy eyelid provocative? The gambling's whisky sour teaches a navel. 

Is the gambling evil? The bitch walks. Is the virgin profane? Why is the navel sick? 
Is Liz enthusiastic? Debbie enjoys the creep. Fly! Shaking, green Kerri pulls weird 
Colin's fly on a sick navel, then vanishes over Norwalk. 
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Undo a virgin! While obscene Liz is juicy and sexual, profane, gaudy Jeff's knee 
is under a succulent whore's navel. Tear Keith's lip bitchily and juicily on sick, 
weird, multicolored Barbara! Why is Buster insane? The shirt knifes the bikini. 
Colin shakes the bitch. The whiskey sour hesitates over the green jerk. When a 
tasty tongue's ethanol walks, Kerri rips the boat and disapproves under enthusiastic 
Miles. Such language! Keith sings. Why is Buster bitchy? 


Notice that the computer turned her adjectives into adverbs, by adding /y and making 
other changes. Gross became grossly, and juicy became ju/c//y. Unfortunately, the 
computer's method wasn't perfect: the computer turned stimulating into stimulatingly 
(a non-existent word), and turned neurotic into neuroticly (instead of neurotically). 

It conjugated her verbs. Screw became screwing, and bite became biting (the computer 
dropped the e). Lick became /Iicks, and teach became teaches(the computer added the e 
after the ch). 

It added ‘s to her nouns. Jeff became Jeff's. Miles became Miles's (it should have 
become Miles’). : 

For each sentence, the grammar is chosen randomly. The chance is 10% that the 
sentence will begin with an exclamation. If the sentence isn't merely an exclamation, 
the chance is 18% that the sentence will be a question. 

If it's a question, there's a 40% chance it will begin with the word why. There's a 
50% chance the main part of the question will have the form does...noun phrase...verb 
phrase, and a 50% chance it will have this form instead: /s...noun phrase...complement. 

To construct a noun phrase from nouns, adjectives, etc., the computer uses 
random numbers. It uses random numbers to also construct verb phrases and complements. 

The program uses a special variable, called W. At the beginning of the composition, 

W is near zero; but it tends to increase as the composition progresses. It affects the 
complexity. When W is large, the chance is large that the computer will print adjectives, 
adverbs, subordinate clauses, and correlative clauses. This sentence was produced by 
a small W: The Ip is tasty. This sentence was produced by a large W: As a sexy, 
walking tongue's virgin takes off the bitchy cigarette over the profane stud then 
castrates enthusiastic Miles's lip paranoidly, the dead, gaudy knee Is stimulating and 
multicolored. 
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POETIC IMAGES (1973) 
One of my students, Toby D'Oench, made the computer create poetic images, such 
as these: 


TO GUINEVERE— LADY OF THE LAKE 


Silent mists 

Billow in creations 

Windmills for flames evolve into ethers 
Merlin again 


MY MEMORY 


Frozen children 

Quiver with leaves 

Creations with leaves hover over thoughts 
Gardens of verse 


A NEW ENGLAND BARN 


Lazy fragrances 

Waft by ethers 

Seas on fragrances billow in sorrow 
Rusted pitchforks 


NEWPORT 


Frozen sails 
Slumber in fog 
Hazes for sails waft by thoughts 
Docks— yachts— luxuries of eras gone by 


The program contains these lists: 


Adjectives 
fleeting, crimson, silent, sensate, pliant, gloomy, pallid, inky, frozen, lazy 


Prepositions 

of, on, under, above, below, in, with, by, for, through 

Verbs 

billow in, glitter with, flutter by, drift with, flow into, ponder about, waft by, 


quiver with, hover over, gleam like, wander through, slumber in, dart by, evolve into, 
sing to | 
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Title. ..noun...ending 
TO REMBRANDT...windmills...A simple brush 


WAITING FOR THE PATIENT...ethers...Waiting 

THE PROPHET...visions...Then a word 

LISTERINE...breaths...Plastic society 

EINSTEIN...thoughts...Somehow through this— and understanding of a superior order 
NEWPORT...sails...Docks— yachts— luxuries of eras gone by 
EXISTENCE...seas...In the beginning? 

SUMMER IN WATTS...flames...Tar-street neon— and the night 

TO GUINEVERE— LADY OF THE LAKE...mists...Merlin again 

NOON IN CALCUTTA...hazes...Emaciated dark forms strewn like garbage 
WEST HARBOR...fog...A solitary gull slices through 

A NEW ENGLAND BARN...fragrances...Rusted pitchforks 

A CHILD'S MICROSCOPE...creations...The wonderful amoeba 

A GROUP PORTRAIT...bundles...Christmas 

THE MILKY WAY...cosmos...A gooey mess 
TOMBSTONE...sorrow...Rubbings 

LIFE AT THE END OF A BRANCH...leaves...Swirling to the ground 
SEASHELLS AND THINGS...waves...Dribble-dribble-dribble castle 

A BEAVER POND...reeds...Thwack 

MY MEMORY ...children...Gardens of verse 


To create a poetic image, the computer fills in this form: 
TITLE 


Adjective Noun that goes with the title 


Verb Noun 
Noun Preposition Noun Verb Noun 


Ending that goes with the title 


CURSES (1978) 
Tom Dwyer & Margot Critchfield made the computer curse you. Here are some of the 
computer's curses: 


May an enraged camel overwhelm your garage. 
May an ancient philosopher lay an egg on your dill pickle. 
May seven large chickens sing an operatic solo to your love letters. 


To invent a curse, the computer fills in the blanks: 


May your : 
subject verb phrase object 


The computer uses these words randomly: 


Subjects Verb phrases Objects 

an enraged camel send a mash note to mother-in-law 
an ancient philosopher get inspiration from psychoanalyst 
a cocker spaniel redecorate rumpus room 
the Eiffel Tower become an obsession of fern 

a cowardly moose make a salt lick out of garage 

the silent majority buy an interest in love letters 
the last picture show overwhelm piggy bank 

a furious trumpet player pour yogurt on hamburger 
Miss America sing an operatic solo to dill pickle 
seven large chickens — lay an egg on Honda 


You can find that program on page 152 of their book, BASIC and the Personal 
Computer. 
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ANALYZE WRITING 


ENGLISH POETRY 
Can the computer analyze English poetry? From 1957 to 1959 at Cornell University, 
Stephen Parrish made the computer alphabetize the words in Matthew Arnold's 
poetry. Here's an excerpt: 


Page Line 
in in 
book Poem's title poem 
CONSCIOUS 
back with the conscious thrill of shame 181 Isolation Marg 19 
conscious or not of the past 287 Rugby Chapel 45 
CONSCIOUSNESS 
the last spark of man's consciousness with words 429 Empedocles II 30 
and keep us prisoners of our consciousness 439 Empedocles II 352 
CONSECRATE 
Peter his friend with light did consecrate 445 Westmin Abbey 50 
CONSECRATES 


which consecrates the ties of blood for these indeed 196 Frag Antigone 31 
CONSECRATION 


won consecration from time 281 Haworth Church 46 

foreshown thee in thy consecration-hour 446 Westmin Abbey 5 
CONSIDER 

consider him consider not old hates 335 Merope eS 

consider him consider not old hates 335 Merope 1 

consider too this people who were dear 335 Merope 174 


To find out what Matthew Arnold said about love, just look up LOVE. Such an index 
is called a concordance. 

That concordance was the first produced by a computer. Previously, all 
concordances of poetry were created by hand, using filing cards. For example, in 
1870 a group of researchers began creating a concordance to Chaucer, by hand. 
They started at the letter A. 45 years later, they were only up to the letter H! 

Did the poet Shelley steal ideas from others? Joseph Raben, at Queens College, 
believed Shelley borrowed imagery from Milton. To prove it, in 1964 he made the 
computer produce concordances to Shelley's Prometheus Unbound and Milton's 
Paradise Lost and compare them. The computer found many similarities between 
Shelley and Milton. 

What were Shakespeare's favorite words? In 1971 at Munster University -in 
Germany, Marvin Spevack fed the computer all the works of Shakespeare, and made 
it count how often each word occurs. Disregarding trivial words such asa and the, 
the computer discovered Shakespeare's favorite word was Jove: he used it 2,271 
times. Next come heart, death, man, life, and hand. He never used the word hero. 
In Macbeth, the word good occurs more often than any other adjective, noun, or 
adverb, and more often than most verbs. 

By counting words, other researchers made the computer graph the rise and fall 
of themes in a novel. 
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AMERICAN HISTORY 
Who wrote the Federalist Papers? Historians knew some of the papers were by 
Alexander Hamilton and others by James Madison, but the authorship of the 
remaining papers was in dispute. 

In 1964, Mosteller and Wallace made the computer compare the literary styles of 
the papers, by counting the frequency of words such as by, enough, from, to, 
upon, while, and whilst. It concluded that all the disputed papers were written by 
Madison, not Hamilton. 

The statistical evidence was so high that historians accept the computer's finding 
as fact. 


THE BIBLE 
Can the computer analyze the Bible? In 1951, Texas clergyman John Ellison made the 
computer compare 309 Greek manuscripts of the New Testament. Underneath each 
word of a standard text, the computer printed the variants found in other 
manuscripts. It classified the manuscripts according to their similarities. 

In 1957, he published a concordance to the Revised Standard Bible, and a pair of 
other researchers (Tasman & Busa) indexed the Dead Sea Scrolls. 

Did the apostle Paul really write all those marvelous letters attributed to him in 
the New Testament? Or were the actually written by somebody else? 

In 1964, Scottish clergyman Andrew Morton used the computer to deduce that 
Paul didn't write some of those letters. 

All Morton did was count how often Paul used the Greek word ka/ in each 
sentence. Kai means and. Coming to a conclusion about Biblical authorship by 
counting just the word and might seem silly, but Morton said he analyzed 20 writers 
of ancient Greek and found each used kai with a constant frequency. In the 
"Pauline" letters, the frequency of kai varied a lot, implying some of them were not 
by Paul. 

Ellison distrusted Morton's assumption that a man's literary style must remain 
constant. He warned: if Morton's method were applied to the Declaration of 
Independence and Thomas Jefferson's letters to his wife, the computer might 
conclude that either Jefferson didn't write the Declaration of Independence or 
another man was writing love letters to Mrs. Jefferson. In 1965, to prove his point, 
he applied Morton's method to two of Morton's own articles on the subject: the 
computer concluded that Morton could not be the author of both! 


FORGERY 
IBM programmed the computer to detect a forged signature—even if the signature 
looks correct to the naked eye. 

To use the IBM forgery-detection system, write your signature by using IBM's 
special pen, attached to the computer. As you write, the computer notices how hard 
you press the pen against the paper and how fast you move the pen. 

If somebody else tries to pretend he's you, he must sit down at the machine and 
try to duplicate your signature. If he presses the pen hardest at different points of 
the signature, or if he accelerates the pen's motion at different points, the computer 
says he's a fake. 

The system works well, because the average crook trying to forge your signature 
will hesitate at the hard parts. His hesitations affect the pen's pressure and 
acceleration, which tell the computer he's faking. 

IBM developed the system in 1979 but isn't selling it yet. When it does, 
remember: the system works just on signatures written with IBM's pen. 
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TRANSLATE RUSSIAN 


WHY RUSSIAN? five 
Soon after computers were invented, programmers tried to make them translate 
Russian into English. They chose Russian instead of Spanish, for three reasons: 


1. Few humans could translate Russian. Spanish translators were a-dime-a-dozen. 
2. Computer experts love hard problems. Russian is harder than Spanish. 

3. Most computers were owned by the Department of Defense, which is very 
interested in Russia. 


EARLY ATTEMPTS 
In 1954, IBM wrote a program that translated Russian sentences such as: 


Gasoline is prepared by chemical methods from crude oil. The price of crude oil is 
determined by the market. The quality of the crude oil is determined by the calorie 
content. 


Unfortunately, most Russian sentences are not so simple. During the 1960's, the 
end of a Russian paper on space biology was fed into an advanced program written 
by Computer Concepts, Inc. Here's the translation that came out: 


Thus, the examination of some from fundamental RADIOBIOLOGICESKIX problems 
shows, that in this a field still very much NEREWENNYZ questions. This is clear, 
since cosmic RADIOBIOLOGI4 is very young RAZDELOM young science efforts of 
scientific different specialties of the different countries of the world successful 
PRODOLJENY will be expanded there are. 


The computer couldn't translate the words in capital letters and was stumped by 
Russian grammar. 

A competing program, written by the Air Force, translated the same passage a 
little better: 


Thus, consideration of from basic radio-biological problems shows that in a given 
region still very many unsolved questions. This and intelligibly, since space 
radiobiology is very young division of young science—space biology. However, is 
base to trust that jointly scientists of different specialties of various countries of 
world/peace radiobiological investigations in outer space will be successfully 
continued and expanded. 


In 1966, a special committee of the National Academy of Sciences concluded that 
the experience of computer translation was "uniformly discouraging" and that hiring 
a human translator was cheaper than doing the two-step process of computer 
translation followed by human editing. 

During the last 20 years, computer prices have fallen, but so has the availability 
of Americans who know Russian, so the computer's usefulness is still in doubt. 
Today, most translations are still done by humans, who use computers to help do the 
word processing and to search through a dictionary and thesaurus. 
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FAMOUS ERRORS 
If you program the computer to translate an English sentence into Russian, and then 
the Russian back to English, will you get back the same English sentence you started 
with? 

One programmer tried, "The spirit is willing, but the flesh is weak." The 
computer translated it into Russian, then back into English, and printed, "The 
booze is strong, but the meat is rotten." 

Another programmer tried, "Out of sight, out of mind." The computer printed, 
"Blind idiot." 

At an engineering conference, a computer was translating scientific papers into 
English, when it suddenly started talking about "water sheep". Everyone was 
confused. Finally they figured it out: the computer meant hydraulic rams. 


XEROX'S AMAZING TRANSLATION MACHINE 
In Moscow during the 1960's, American companies were showing off their products, 
but none of the Russians were interested in Xerox's photocopiers— until some Xerox 
employees put on an amazing demonstration. They "photocopied" some English 
writing, and—presto! —a beautiful Russian translation of it came out of the machine! 
The machine was acting as a translator! And the translation was flawless, even 
though the English text was complex! 

The Russians were very excited, and ordered hundreds of the amazing 
translation machine. 

But before shipping the machines, the Xerox guys confessed it was just a gag. 
The employees had sneaked the Russian version into the machine, before beginning 
the demonstration. 

What if Americans had the same sense of humor about nuclear war? "Hello, 
Gorbachev? This is Reagan, on the hot line. We just fired some nuclear missiles. 
They're heading straight for Moscow. Ha, ha! Just kidding." 
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DREAMS 
For many centuries, people have dreamed of inventing a computerized machine that 
acts like a person. Let's look at those dreams. .. . 


THE GREEKS 
The hope of making an inanimate object act like a person can be traced back to the 
ancient Greeks. According to Greek mythology, Pygmalion sculpted a statue of a 
woman, fell in love with it, and prayed to the gods to make it come to life. His wish 
was granted—she came to life. And they lived happily ever after. 


RAMON LULL (1272 A.D.) 
In 1272 A.D. on the Spanish island of Majorca, Ramon Lull invented the idea of a 
machine that would produce a// knowledge, by putting together words at random. He 
even tried to build it. 
Needless to say, he was a bit of a nut. Here's a description of his personality 
(written by Jerry Rosenberg, abridged): 


Ramon Lull married young and fathered two children—which didn't stop him from his 
courtier's adventures. He had an especially strong passion for married women. One 
day as he was riding his horse down the center of town, he saw a familiar woman 
entering church for a High Mass. Undisturbed by this circumstance, he galloped his 
horse into the cathedral and was quickly thrown out by the congregants. The lady 
was so disturbed by his scene that she prepared a plan to end Lull's pursuit once 
and for all. She invited him to her boudoir, displayed the bosom that he had been 
praising in poems written for her, and showed him a cancerous breast. "See, 
Ramon," she said, "the foulness of this body that has won thy affection! How much 
better hadst thou done to have set thy love on Jesus Christ, of Whom thou mayest 
have a prize that is eternal!" 

In shame Lull withdrew from court life. On four different occasions a vision of 
Christ hanging on the Cross came to him, and in penitence Lull became a dedicated 
Christian. His conversion was followed by a pathetic impulse to try to convert the 
entire Moslem world to Christianity. This obsession dominated the remainder of his 
life. His "Book of Contemplation" was divided into five books in honor of the five 
wounds of Christ. It contained forty subdivisions—for the forty days that Christ 
spent in the wilderness; 366 chapters—one to be read each day and the last chapter 
to be read only in a leap year. Each of the chapters had ten paragraphs to 
commemorate the ten commandments; each paragraph had three parts to signify the 
trinity—for a total of thirty parts a chapter, signifying the thirty pieces of silver. 

In the final chapter of his book he tried to prove to infidels that Christianity was 
the only true faith. 


Several centuries later—in 1726—Lull's machine was pooh-poohed by Jonathan 
Swift, in Gulliver's Travels. Gulliver meets a professor who has built such a 
machine. The professor claims his machine lets "the most ignorant person. . . write 
books in philosophy, poetry, politics, law, mathematics, and theology without the 
least assistance from genius and study." The machine is huge—20 feet on each 
side—and contains all the words of the language, in all their declensions, written on 
scraps of paper that are glued onto bits of wood connected by wires. Each of the 
professor's 40 students operates one of the machine's 40 cranks. At a given signal, 
every student turns his crank a random distance, to push the words into new 
positions. Gulliver reports: "he then commanded six and thirty of the lads to read 
the several lines softly as they appeared upon the frame; and where they found 
three or four words together that might make part of a sentence, they dictated to the 
four remaining boys who were scribes. . . . Six hours a day the young students 
were employed in this labor, and the professor showed me several volumes in large 
folio already collected, of broken sentences, which he intended to piece together, 
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and out of those rich materials to give the world a complete body of all arts and 
sciences. .. ." 


KAREL CAPEK (1920) 

The word robot was invented in 1920 by Karel Capek, a Czech playwright. His play 
"R.U.R." shows a factory where the workers look human but are really machines. 
The workers are dubbed robots, because the Czech word for s/ave is robotnik. 

His play is pessimistic. The invention of robots causes unemployment. Men lose 
all ambition—even the ambition to raise children. The robots are used in war, go 
mad, revolt against mankind and destroy it. In the end only two robots are left. It's 
up to them to repopulate the world. 


ISAAC ASIMOV (1942) 
Many sci-fi writers copied Capek's idea of robots, with even more pessimism. An 
exception was Isaac Asimov, who depicted robots as being loving. He coined the 
word robotics, which means the study of robots, and in 1942 developed what he calls 
the "Three Laws’ of Robotics". Here's the version he published in 1950: 


1. A robot may not injure a human being or, through inaction, allow a human being 
to come to harm. 


2. A robot must obey the orders given it by human beings, except where such 
orders would conflict with the First Law. 


3. A robot must protect its own existence, as long as such protection does not 
conflict with either the First or the Second Law. 


NORBERT WIENER (1947) 

The word cybernetics was invented in 1947 by Norbert Wiener, an MIT professor. He 
defined it to be "the science of control and communication in the animal and the 
machine." Wiener and his disciples, who called themselves cyberneticists , wondered 
whether it would be possible to make an electrical imitation of the human nervous 
system. It would be a "thinking machine". They created the concept of feedback: 
animals and machines both need to perceive the consequences of their actions, to 
learn how to improve themselves. For example, a machine that is producing parts in a 
factory should examine the parts it has produced, the heat it has generated, and 
other factors, to adjust itself accordingly. 

Wiener, like Ramon Lull, was somewhat strange. He graduated from Tufts College 
when he was 14 years old, got his doctorate from Harvard when he was 18, and 
became the typical "absent-minded professor". Many anecdotes are told about him. 

For example, once he went to a conference and parked his car in the parking lot. 
When the conference was over, he went to the lot, but forgot where he parked his 
car, and even forgot what it looked like. So he waited until all the other cars were 
driven away, and took the car that was left. 

When he and his family moved to a new house a few blocks away, his wife gave him 
written directions on how to reach it, because she knew he was very absent-minded. 
But sure enough, when he was leaving his office at the end of the day, he couldn't 
remember where he put her note, and of course he couldn't remember where the new 
house was. So he drove to his old neighborhood instead. He saw a young child and 
asked her, "Little girl, can you tell me where the Wieners have moved?" "Yes, 
Daddy," came the reply, "Mommy said you'd probably be here, so she sent me to 
show you the way home." 

One day he was sitting in the campus lounge, intensely studying a paper on the 
table. Every now and then, he would get up, pace a bit, and then return to the 
paper. Everyone was impressed by the enormous mental effort reflected on his face. 
Once again he rose from his paper, took a few rapid steps around the room, and 
collided with a student. The student said, "Good afternoon, Professor Wiener." 
Wiener stopped, stared, clapped a hand to his forehead, said "Wiener—that's the 
word," and ran back to the table to fill the word "wiener" in the crossword puzzle he 
was working. 
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Once he drove 150 miles to a math conference at Yale University; but when the 
conference was over, he forgot he had come by car, so he returned by bus. The next 
morning, he went out to his garage to get his car, discovered it was missing, and 
complained to the police that while he was away someone had stolen it. 

Those anecdotes were collected by Howard Eves, a math historian. 


ALAN TURING (1950) 

Can a computer "think"? In 1950, Alan Turing proposed the following test. In one 
room, put a human and a computer. In another room, put another human (called the 
Interrogator) and give him two terminals—one for communication with the computer, 
and the other for communication with the other human—but don't tell the 
Interrogator which terminal is which. If he can't tell the difference, the computer's 
doing a good job of imitating the human, and, according to Turing, we should say 
that the computer can "think". / 

It's called the Imitation Game. The Interrogator asks questions. The human 
witness answers honestly. The computer pretends to be human. 

To win, the computer must be able to imitate human weaknesses as well as 
strengths. For example, when asked to add two numbers, it should pause before 
answering, as a human would. When asked to write a sonnet, a good imitation-human 
answer would be, "Count me out on this one. I never could write poetry." When 
asked "Are you human", the computer should say "yes". 

Such responses wouldn't be hard to program. But a clever Interrogator could 
give the computer a rough time, by requiring it to analyze its own thinking: 


INTERROGATOR: In the first line of your sonnet which reads "Shall I compare thee 
to a summer's day," wouldn't "a spring day" do as well or hetter? 

WITNESS: It wouldn't scan. 

INTERROGATOR: How about "a winter's day". That would scan all right. 
WITNESS: Yes, but nobody wants to be compared to a winter's day. 
INTERROGATOR: Would you say Mr. Pickwick reminded you of Christmas? 
WITNESS: In a way. 

INTERROGATOR: Yet Christmas is a winter's day, and I don't think Mr. Pickwick 
would mind the comparison. 

WITNESS: I don't think you're serious. By a winter's day one means a typical 
winter's day, rather than a special one like Christmas. 


If the computer could answer questions that well, the Interrogator would have a 
hard time telling it wasn't human. , 

Donald Fink has suggested that the Interrogator say, "Suggest an unsolved 
problem and some methods for working toward its solution," and "What methods 
would most likely prove fruitful in solving the following problem. .. ." 

Turing believed computers would someday be able to win the game and therefore 
be considered to "think". In his article, he listed possible objections to his belief, 
and rebutted them. ... 


OBJECTION: Thinking's a function of man's immortal soul. Since computers don't 
have souls, computers can't think. 

REBUTTAL: Since God's all-powerful, He can give eH souls if He wishes. 
Just aS we create children to house His souls, so should we serve Him by creating 
computers. 


OBJECTION: If machines could equal us in thinking, that would be dreadful! 
REBUTTAL: Too bad! 


OBJECTION: Logicians have proved it's impossible to build a computer that can 
answer every question. | 
REBUTTAL: Is it possible to find a human that can answer every question? 
Computers are no dumber than us. And though no one can answer every question, 
why not build a succession of computers, each one more powerful than the next, so 
every question could be answered by at least one of them? 
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OBJECTION: Although computers can produce, they can't be conscious of what 
they've produced. They can't feel pleasure at their successes, misery at their 
mistakes, and depression when they don't get what they want. 

REBUTTAL: The only way to be absolutely sure whether a computer has feelings is 
to become one. A more practical experiment would be to build a computer that 
explains step-by-step its reasoning, its motivations, and the obstacles it is trying to 
overcome, and also analyzes emotional passages such as poetry. Such a computer is 
clearly not just parroting. 


OBJECTION: A computer can't be kind, resourceful, beautiful, friendly, have 
initiative, have a sense of humor, tell right from wrong, make mistakes, fall in love, 
enjoy strawberries and cream, make someone fall in love with it, learn from 
experience, use words properly, be the subject of its own thought, have as much 
diversity of behavior as a man, or do something really new. 

REBUTTAL: Why not? Although such a computer hasn't been built yet, it might be 
possible in the future. 


OBJECTION: The computer never does anything original or surprising. It does only 
what it's told. 

REBUTTAL: How do you know "original" human work isn't just grown from a seed 
implanted by teaching, or the effect of well-known general principles? And who says 
computers aren't surprising? The computer's correct answers are often surprisingly 
different from a human's rough guesses. 


OBJECTION: Nerve cells can sense gradual increases in electrical activity—you can 
feel a "little tingle" or a "mild pain" or an "ouch"—whereas a computer's logic is only 
binary—either a "yes" or "no". 

REBUTTAL: By using techniques such as "random numbers", you can make the 
computer imitate the flexible, probabilistic behavior of the nervous system well 
enough so that the Interrogator can't tell the difference. 


OBJECTION: Life can't be reduced to rules. For example, if you have a traffic-light 
rule that says "stop when the light is red, and go when the light is green", what do 
you do when the light is broken, and both the red and the green appear 
simultaneously? Maybe you should have an extra rule saying in that case to stop. But 
some further difficulty may arise with that rule, and you'd have to create another 
rule. And so on. You can't invent enough rules to handle all cases. Since computers 
must be fed rules, they cannot handle all of life. 

REBUTTAL: Although life's more than a simple set of rules, it might be the 
consequences of simple psychological laws of behavior, which the computer could be 
taught. 


OBJECTION: Humans have extrasensory perception (ESP), and computers don't. 
REBUTTAL: Maybe the computer's random-number generator could be hooked up to 
be affected by ESP. Or to prevent ESP from affecting the Imitation Game, put both 
the human witness and the computer in a telepathy-proof room. 


To make the computer an intelligent creature, Turing suggested two possible 
ways to begin. One way would be to teach the computer abstract skills, such as 
chess. The other way would be to give the computer eyes, ears, and other sense 
organs, teach it how to speak English, and then educate it the same way you'd 
educate a somewhat handicapped child. 

Four years later—on June 8, 1954—Turing was found dead in bed. According to 
the police, he died from potassium cyanide, self-administered. He'd been plating 
spoons with potassium cyanide in electrolysis experiments. His mother refuses to 
_ believe it was suicide, and hopes it was just an accident. 
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FAMOUS ATTEMPTS 
Here are some famous attempts to make the computer understand plain English.... 


BASEBALL (1961) 

_ In 1961 at MIT, programmers made the computer answer questions about baseball. In 
the computer's memory, they stored the month, day, place, teams, and scores of 
each game in the American League for one year. They programmed the computer so 
that you can type your question [n ordinary English. The computer analyzes your 
question's grammar and prints the correct answer. 

Here are examples of questions the computer can analyze and answer correctly: 


Who did the Red Sox lose to on July 5? 

Who beat the Yankees on July 4? 

How many games did the Yankees play in July? 

Where did each team play in July? 

In how many places did each team play in July? 

Did every team play at least once in each park in each month? 


To get an answer, the computer turns your questions into equations: 
Question Equations 


Where did the Red Sox play on July 7? place =? 
team = Red Sox 
month = July 
day =7 

What teams won 10 games in July? team (winning) = ? 
game (number of) = 10 
month = July 


On how many days in July did eight teams play? day (number of) = ? 
month = July 
team (number of) = 8 


To do that, the computer uses this table: 


Word in your question Equation 


where place = ? 

Red Sox team = Red Sox 
July month = July 
who team = ? 

team team = 


If your question mentions Boston, you might mean either "place = Boston" or 
"team = Red Sox"; the computer analyzes your question to determine which equation 
to form. Words such as the, did, and play are ignored. 
After forming the equations, the computer hunts through its memory, to find the 
games that solve the equations. If an equation says "number of", the computer counts. 
If an equation says "winning", the computer compares the scores of opposing teams. 
The programmers were Bert Green, Alice Wolf, Carol Chomsky, and Kenneth Laughery. 


EXCEPTIONS (1964) 
In 1964, MIT awarded a Ph.D. to Bertram Raphael, for making the computer understand 
generalizations and exceptions. Here are conversations between a human and Raphael's 
computer: . 
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HUMAN: 


COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER. 


HUMAN: 


COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 


COMPUTER: 


When you begin running that program, the computer already understands words such 
asa, the, Is, every, has, owns, part, and /eft. The program has two major limitations: 


CONVERSATION 1 


There are 5 fingers on every hand. There are two hands on a person. 
A boy is a person. Tom is a boy. Dick is a boy. Harry is a boy. Tom 
has nine fingers. Dick has one hand. How many fingers does Tom have? 
The answer is 9. 


How many fingers does Dick have? 
The answer is 5. 


How many fingers does Harry have? 
The answer is 10. 


CONVERSATION 2 


Every keypunch-operator is a girl. Any girl is an example of a person. 
Is a keypunch-operator a person? 
Yes. 


Is a person a girl? 
Sometimes. 


Is a monkey a keypunch-operator? 
Insufficient information. 


CONVERSATION 3 


The man is a jerk. Jack is a dope. John is Jack. Is John a dope? 
Yes. 
Oe 


Is the man a dope? 
Yes. 


Jim is a man. Is the man a dope? 
Which man? 


CONVERSATION 4 


The telephone is just to the right of the book. The telephone is just to 
the left of the pad. Is the pad just to the right of the book? 


a ©CISeZ 


The pad is to the right of the telephone. 
The above statement is already Known. 


The pad is to the left of the telephone. 
The above statement is impossible. 


The ash-tray is to the left of the book. The pencil is to the left of the 
pad. The paper is just to the right of the telephone. Where is the pad? 
Just to the right of the telephone. Somewhere to the right of the pencil. 


What is the position of the pad? 

The left-to-right order is as follows: ash-tray, book, telephone, pad, 
paper. To further specify the positions, you must indicate where the 
pencil is with respect to the ash-tray. 


The book is just to the right of the ash-tray. What is the position of the pad? 
The left-to-right order is: pencil, ash-tray, book, telephone, pad, paper. 


A telephone is an audio-transducer. A diaphragm is part of an 
audio-transducer. Where is the diaphragm? 

Just to the left of the pad. Just to the right of the book. Somewhere to 
the left of the paper. 


your grammar must be simple, and the computer does only a few forms of reasoning. 
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WHAT'S A STORY PROBLEM? 
When you were in school, your teacher told you a story that ended with a mathematical 
question. For example: 


Dick gave Jane 5 pounds of cocaine. Jane snorted 3 pounds, then died. When Dick 
came to kiss Jane's dead body, how many pounds of cocaine did he find left? 


In that problem , the last word is: /eft. That means: subtract. So the correct answer 
is 5 pounds minus 3 pounds, which is 2 pounds— unless Jane's friends got there before 
Dick. 

Can the computer solve problems like that? Here's the most famous attempt.... 


ARITHMETIC & ALGEBRA (1964) 
MIT awarded a Ph.D. to Daniel Bobrow, for programming the computer to solve story 
problems involving arithmetic and algebra. 
Let's see how the computer solves this problem: 


If the number of customers Tom gets is twice the square of 20 percent of the number 
of advertisements he runs, and the number of advertisements he runs is 45, what is 
the number of customers Tom gets? 


To begin, the computer replaces twice by 2 times, replaces square of by square, and 
replaces per cent by percent. Then the computer separates the sentence into smaller 
sentences: 


The number of customers Tom gets is 2 times the square 20 percent of the number of 
advertisements he runs. The number of advertisements he runs is 45. What is the 
number of customers Tom gets? 


The computer turns each sentence into an equation: 


number of customers Tom gets = 2 * (.20 * number of advertisements he puns ye? 
number of advertisements he runs = 45 
X = number of customers Tom gets 


The computer solves the equations and prints the answer as a complete sentence: 
The number of customers Tom gets is 162. | 
Here's a harder problem: 


The sum of Lois's share of some money and Bob's share is $4.50. Lois's share is twice. 
Bob's. Find Bob's and Lois's share. 


Applying the same method, the computer turns the problem into these equations: 


Lois's share of some money + Bob's share = 4, 50 dollars 
Lois's share = 2 * Bob's 

X = Bob's 

Y = Lois's share 


The computer tries to solve the equations but fails. So it assumes "Lois's share" is the 
same as "Lois's share of some money", and "Bob's" is the same as "Bob's share". Now 
it has six equations: 


O riginal equations 


Lois's share of some money + Bob's share = 4. 50 dollars 
Lois's share = 2 * Bob's 

X = Bob's 

Y = Lois's share 


Assumptions ’ 
Lois's share = Lois's share of some money 


Bob's = Bob's share 
It solves them and prints: 


Bob's is 1.50 dollars. 
Lois's share is 3 dollars. 
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Here's an even harder one: 


The distance from New York to Los Angeles is 3000 miles. If the average speed of 
a jet plane is 600 miles per hour, find the time it takes to travel from New York to 
Los Angeles by jet. 


The resulting equations are: 


distance from New York to Los Angeles = 3000 * miles 
average speed of jet plane = (600 * miles) /(1 * hours) 
X = time it takes to travel from New York to Los Angeles by jet 


The computer is unable to solve them. But in its memory it finds the formula 
"distance = speed * times". It winds up with 7 equations: 

Original equations | 

distance from New York to Los Angeles = 3000 * miles 

average speed of jet plane = (600 * miles) /(1 * hours) 

X = time it takes to travel from New York to Los Angeles by jet 


Formula 
distance = speed * time 


Assumptions 
distance = distance from New York to Los Angeles 


speed = average speed of jet plane 
time = time it takes to travel from New York to Los Angeles by jet 


It solves them and prints: 
The time it takes to travel from New York to Los Angeles by jet is 5 hours. 
The computer can handle problems about age: 


Mary is twice as old as Ann was when Mary was as old as Ann is now. If Mary is 
24 years old, how old is Ann? 


To begin, the computer replaces twice by 2 times, and replaces how old by what. 
When the computer sees the words as old as, it knows the problem has to do with 
ages, so it breaks the problem into these sentences: 


Mary's age is 2 times Ann's age X years ago. X years ago Mary's age is Ann's age 
now. Mary's age is 24, What is Ann's age? 

The resulting equations are: 

Mary's age = 2 * (Ann's age - X) 

Mary's age - X =Ann's age 

Mary's age = 24 

Y = Ann's age 

The computer prints: 

Ann's age is 18. 


If the situation appears hopeless, the computer asks you for help. In the following 
conversation, the human poses a problem, and the computer begs for a hint: 


HUMAN: The gross weight of a ship is 20000 tons. If its net weight is 15000 tons, 
what is the weight of the ship's cargo? 

COMPUTER: Do you Know any more relationships among these variables: gross weight 
of ship, tons, its net weight, weight of ship's cargo? 


HUMAN: Yes. 
COMPUTER: Tell me. 
HUMAN: The weight of a ship's cargo is the difference between the gross weight 


and the net weight. 
COMPUTER: The weight of the ship's cargo is 5000 tons. 
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The program has some limitations. It cannot solve quadratic equations. If the " 


computer tries to apply the formula "distance = speed * time" to a problem involving 


two distances, it forgets which distance is which. The computer's vocabulary is limited: 


it doesn't realize that how many means what is the number of, and how far is means 
what Is the distance to. If the human types Tom has 2 apples, 3 bananas, and 4 pears, 
the comma before the and makes the computer split the sentence into two wrong 
"sentences": 


Tom has 2 apples, 3 bananas. 
4 pears. 


If the human mentions the number of times John went to the movies, the computer 
thinks times means multiplication, and tries to multiply number of by John went to the 
movies. For problems about age, the characters must be named Mary, Ann, Bill, 
Father, or Uncle, unless you diddle with the computer's memory. 


ENCYCLOPEDIA (1964-1966) 
In 1964, Simmons, Klein, and McConlogue (at the Systems Development Corporation) 


fed a child's encyclopedia into the computer. If you type What do worms eat? the computer 


hunts through the encyclopedia, to find sentences mentioning both worms and eat. 
(To hasten the hunt, it uses an index produced by another program.) It finds two 
sentences: 


Birds eat worms on the grass. 
Most worms usually eat grass. 


After analyzing the grammar of your question and those two sentences, the computer 
realizes the first sentence is irrelevant, and prints just the correct answer: 


Most worms usually eat grass. 


In 1965, the program's abilities were extended, so that if you type What animals 


live longer than men? the computer searches through the encyclopedia for related words: 


Word in sentence Related words searched 


animals mammals, reptiles, fish 
live age 

longer older, ancient 

men person, people, women 
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Here's an example of the program's operation in 1966. The human creates some 
encyclopedia material about horses, and then retrieves it: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


When the computer's answer consists of several sentences 


Enter horse=noun, is=isverb, animal=noun, 
strong=adj, pull=verb, wagon=noun, most=adj, are=isverb, eat=verb, 
hay=noun, all=adj, red=adj, many=adj, have=haveverb, long=adj, 
mane=noun, some=adj, person=noun, race=verb. 

Entered in dictionary. 


Plurals horse=horses, animal=animals, farm=farms, wagon=wagons, 
mane=manes, person=people. 


A horse is an animal. Horses live on a farm, Strong horses pull wagons. 
Most horses are strong. Horses eat hay. All horses are red. Many horses 
have long manes. Some people race horses. 

Learned. 


Forget "all horses are red". 
Forgotten. 


What is a horse? 
Horse is an animal. 


What do horses eat? 
Horses eat hay. 


What do horses do? 
Horses live on a farm and eat hay. 


Strong horses pull wagons. 


What do strong horses do? 
Strong horses pull wagons. 


Do many horses have long manes? 
Yes. 


Do all horses have long manes? 
To my Knowledge, no. 


Describe horses? 

Horses are an animal. Most horses are strong. Many horses have long 
manes. Horses live on a farm and eat boy Strong horses pull wagons. 
Some people race horses. 


, it prints the most 


relevant sentence first, and the others in decreasing order of relevance. 


THE MILITARY (1966) 


Thompson and Craig (at General Electric) made the computer answer military questions 


such as: 


Has the 25th batallion arrived in Texas since 3 P.M. ? 
Is the 100th scheduled to arrive at Ft. Lewis before the 200th leaves Ft. Lewis? 
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live=verb, on=prep, farm=noun, 


COMMON CONCEPTS (1966) 


Carnegie-Mellon University awarded a Ph.D. to M. Ross Quillian, for making the 
computer compare words. If you type two words, the computer finds a concept they 
have in common: 


HUMAN: | 
COMPUTER: 


HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 


cry, comfort 
Cry is among other things to make a SAD sound. To comfort can be to 
make something less SAD. 


plant,man 

Plant is not a ANIMAL structure. Man is ANIMAL. 

To plant is for a PERSON someone to put something into earth. Man 
is PERSON. 


plant,industry 
Plant is apparatus which person use for process in INDUSTRY. 


PSYCHOTHERAPY & GEOMETRY & GERMAN (1966-1967) 


In 1966 at MIT, Joseph Weizenbaum wrote the Eliza program, which makes the 
computer act as a psychotherapist. . 

In 1967, he changed the program, to make it handle keywords such as also, call, 
compute, define, is, let, of, thanks, where, and the symbol =. In the following 
conversation, the human, teaches the computer how to find the area of a circle, 

a sphere, and a square, and then asks the computer questions about geometry. 
The human also teaches the computer how to speak German— 


English German 
I say ich sage 
I mean meine ich 
what is wieviel ist 
squared quadrat 


and gradually starts speaking to the computer in German. 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 


COMPUTER: 


HUMAN: 
COMPUTER: 
HUMAN: 
COMPUTER: 


HUMAN: 
COMPUTER: 
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The area of a circle is pi times the radius of the circle squared. The 

area of a sphere is pi times the diameter of the sphere squared. 

The area of a square is the side of the square squared. The diameter 

of an object is twice the radius of the object. The radius of a bail is 10. 
What is the area of the ball? 

The assumption that ball is circle is consistent-—— shall I go on? 

No. 

The assumption that ball is sphere and object is consistent— shall I go on? 
Yes. 

It's 1256, 6359, 


What is the diameter of the ball? 
fi's 20: 


The radius of a dish is 10. What's the area of the dish? 

The assumption that dish is circle is consistent— shall I go on? 
Yes. . 

It's 314, 15899. 


The radius of a globe is 10. A globe is a sphere. A sphere is an object. 
What is the area of the globe? 
It's 1256. 6359. 


The side of a plate is 10. What is the area of the plate? 

The assumption that plate is square is consistent— shall I go on? 
Yes. 

It's 100. 


When I say board I mean plate. What is 3 times the side of the board? 
It's 30. 


HUMAN: 
COMPUTER: 


HUMAN: 


COMPUTER: 
HUMAN: 
COMPUTER: 


Please call that x. Let f(z) be z squared minus z. Compute f(x). 
It's 870. 


When I say ich sage I mean I say. When ich sage meine ich I mean I mean. 
Wenn ich sage wieviel ist meine ich what is. Wenn ich sage quadrat meine 
ich squared. Nun, sagen sie mir bitte, wieviel is x quadrat. 

I didn't understand you. 

Ja, tut mir leid, ich sollte fragen wieviel IST x quadrat. 

It's 900. 


CALCULUS (1969) 


At MIT, Charniak made the computer solve story problems involving calculus. 


HUMAN: 


COMPUTER: 


Water is flowing into a conical filter at the rate of 15 cubic inches per 
second, If the radius of the base of the filter is 5 inches and the altitude 
is 10 inches, find the rate at which the water level is rising when the 
volume is 100 cubic inches. 

The answer is. 53132943 * in * sec4-1,* pi*-. 33333332, 


PROBABILITY (1971) 


Rensselaer Polytechnic Institute awarded a Ph.D. to J.P. Gelb, for making the computer 
solve story problems involving probability. 


HUMAN: 


COMPUTER: 
HUMAN: 
COMPUTER: 


From a zorch containing 4 ferd and 3 brakky and 5 chartreuse werfels, 
3 are drawn. What is the probability that 2 are chartreuse and the other 
brakky? 

Replacement involved? 

No. 

3/22 (or . 1363636). 


at 
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CREATE INTELLECT 


CATEGORIES 
The field of "artificial intelligence" consists of several categories. Let's examine them. 


MENTAL GAMES 
Can the computer play chess and checkers better than humans? That question has a 
long history.... 


1950: Shannon invents the "minimax tree method", to help the computer win 

1962: Samuel's checker program wins a game of checkers against Robert Nealey, an expert 
1967: Greenblatt writes the first decent program for chess Tiere 

1976: chess program by Atkins & Gorklen does well in championships against humans 

1976: Jennings writes Microchess, a program that consumes only 1K of RAM 

1978: the Sprachlins write Sargon, the first microcomputer chess program that plays well 


NATURAL LANGUAGES 
Can the computer understand English, Russian, and the other languages that humans 
speak? Such languages are called natural languages, as opposed to the restrictive 
computer languages in which programs are written. 
Here are the highlights.... 


1954: IBM writes a program that translates simple sentences from Russian to English 

1961: MIT makes the computer answer questions about baseball, asked in ordinary English 
1964: Bobrow makes the computer solve story problems about arithmetic and algebra 

1964: SDC makes the computer understand a child's encyclopedia 

1966: Weizenbaum's "Eliza" program makes the computer act as a psychotherapist 

1971: Colby makes the computer act paranoid 


INTERPERSONAL RELATIONSHIPS 
The computer can imitate interpersonal relationships. Here's a report by Nigel Hawkes 
(abridged): 


John Loehlin at the University of Texas devised a program that imitates human 
personality. In honor of the author of Brave New World, he calls the model Aldous. 

It contains five subroutines, concerned with recognition, emotional reaction, 

action selection, introspection, and learning, and two memories, a small immediate 

one and a larger long-term one. When presented with an input, Aldous responds to 

it "emotionally" with fear, anger, or attraction, and generates actions of withdrawal, 
approach, attack, conflict, or indifference. Aldous's personality can be altered by 
modifying the subroutines. Thus Aldous programmed one way will respond warmly to 
emotion ("romantic Aldous") or to abstract or concrete aspects of a situation 

("intellectual Aldous") or alternatively be dominated by the past ("conservative Aldous"). 

Objects presented to Aldous must be described by a simple numerical code, so that 
Aldous does not require complex recognition equipment. When he's presented with the 
same object four times in a row, he gets attached to it and his attitude is positive. 
When presented with a new object which is very similar, his positive emotions carry 
over, and he approaches it with confidence; but if it doesn't have the same favorable 
consequences to him, he learns eventually to be hostile to it. 

Loehlin programmed two different Aldous models into the computer at once and made 
them interact with each other. The social relationship turned out to be rather delicate. 
If either model started out in a negative frame of mind, the relationship tended to turn 
rapidly into mutual hostility. If both models were favorably disposed, a harmonious 
relationship might develop, but it was far from certain. It tended to go through phases— 
a warm period to start with (the honeymoon phase) followed by a phase in which each 
model had to cope with hostility from the other, and finally a stable relationship with 
increasingly positive attitudes from both models. 

In another experiment, Loehlin had one Aldous interact with another programmed to 
produce unshakeably positive responses ("Saint Aldous"). Violent aggression resulted. 
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In an experiment where one model played the part of a psychotherapist, the patient, 
initially strongly negative, was eventually brought round to a positive attitude, at 
least towards the therapist. Replacing the therapist by an ordinary Aldous was not 
easy, however, and another period of therapy was needed before a stable and positive 
relationship could be established. 

In a model called Homunculus, produced by John and Jeanne Gullahorn of Michigan 
State University, three-person interactions are possible. The model uses a theory of 
human relations devised by George Homans. When three unacquainted models are 
"introduced", they typically form a pair and an isolate; when the models have prior 
knowledge about each other, more complex interactions may occur. 


THE ARTS 
In 1956 at the University of Illinois, Lejaren Hiller and Leonard Isaacson made the 
computer compose its own music. The computer picked only "white" notes— no sharps 
or flats. It picked each note by using random numbers; but before printing the note, 
the computer checked whether that note would contradict any of the fourteen rules of 
counterpoint; if so, the computer picked a different note instead. Hiller says the music 
is "of fair quality, strongly reminiscent, if one ignores a certain monotony in rhythm, 
of passages from Palestrina." 

In 1957 they tried another experiment: they allowed sharps and flats, and fed in 
only four of the fourteen rules. The result was chromatic music. According to-Hiller, 
it "recalled passages from, say, a Bartok string quartet." They also made the computer 
compose twelve-tone music in the style of Schoenberg. 

Can the computer compose its own poetry and prose? Here are the computer's 
accomplishments.... 


1961: Balestrini’s program writes "The Taoist Hiroshima Elevator", by combining sources 
1966: Northwestern University makes the computer compose a poem about bubbles 

1968: Mendoza makes the computer write children's stories and fake physics essays 

1968: Deffrey makes the computer write fake essays about the aerospace industry 

1972: Gosden makes the computer produce "Me-Books"— personalized stories for kids 
1973: I make the computer compose stories— some are pornographic 

1973: D'Oench makes the computer compose poetic images 

1978: Dwyer & Critchfield make the computer curse you 


The computer has also drawn original artwork, by using random numbers and other 
techniques. 


PROTOCOL METHOD 
During the 1950's and 1960's, most research in artificial intelligence was done at the 
Massachusetts Institute of Technology (MIT) and the Carnegie Institute of Technology 
(CIT, now called Carnegie-Mellon University). At Carnegie, the big names were 
Allen Newell and Herbert Simon. They invented the protoco! method. In the protocol 
method, a human is told to solve a tough problem and, while he's solving it, to say 
at each moment what he's thinking. A transcript of his train of thought is recorded and 
called the protoco/. Then programmers try to make the computer imitate that train of 
thought. 

Using the protocol method, Newell and Simon produced programs that could "think 
like humans". The thinking, like human thinking, was imperfect. Their research did 
not try to make the computer a perfect thinker; instead, it tried to gain insight into 
how humans think. Their point of view was: if you think you really understand human 
psychology, go try to program it. Their attempt to reduce human psychology to computer 
programs is called mentalism, and has replaced Skinner's stimulus-response behaviorism 
as the dominant force in psychology today. 
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ABSTRACT MATH 
Many programmers have tried to make the computer do abstract math. 

In 1957 Newell, Simon, and Shaw used the protocol method to make the computer 
prove theorems about symbolic logic, such as "Not (p or q) implies not p". In 1959 
and 1960, Herbert Gelernter and his friends made the computer prove theorems about 
Euclidean geometry, such as "If the segment joining the midpoints of the diagonals of 
a trapezoid is extended to intersect a side of the trapezoid, it bisects that side." 

In 1961, MIT awarded a Ph.D. to os ata Slagle for making the computer compute 


indefinite integrals, such as eiaass72 dx; the computer gets the answer, which is 


ix. 
arcsin x + So Ee ~ tan aresin x + c. 

Each of those programs works by drawing a tree inside the computer's memory. 
Each branch of the tree represents a possible line of attack. The computer considers 
each branch and chooses the one that looks most promising. 

A better symbolic-logic program was written by Hao Wang in 1960. His program 
doesn't need trees; it always picks the right attack immediately. It's guaranteed to 
prove any theorem you hand it, whereas the program by Newell, Simon, and Shaw got 
stuck on some hard ones. 

A better indefinite integration program was written by Joel Moses in 1967 and further 
improved in 1969. It uses trees very rarely, and solves almost any integration problem. 
A program that usually finds the right answer but might fail on hard problems is 
called heuristic. A heuristic program usually involves trees. The checkers, chess, and 

geometry programs are heuristic. A program that's guaranteed to always give the 
correct answer is called a/gorithmic. The original symbolic-logic program was heuristic, 
but Wang's improvement is algorithmic; Moses's indefinite integration program is almost 
algorithmic. 


GPS 
In 1957 Newell, Simon, and Shaw began writing a single program to solve a// problems. 
They called the program GPS (General Problem Solver). If you feed the program a goal, 
a list of operators, and associated information, the program will tell you how to achieve 
the goal by using the operators. 

For example, suppose you want the computer to solve this simple problem: a monkey 
would like to eat some bananas that are too high for him to reach, but there's a box 
nearby he can stand on. How can he get the bananas? 

Feed the GPS program this information.... 


Now: monkey's place = place; box's place = place2; contents of monkey's hand = empty 
Want: contents of monkey's hand = the bananas 

Difficulties: contents of monkey's hand is harder to change than box's place, which is 
harder to change than monkey's place 


Allowable operator Definition 


climb box before: monkey's place = box's place 
after: monkey's place = on the box 


walk to x after: monkey's place = x 


move box to x before: monkey's place = box's place 
after: monkey's place = x; box's place = x 


get bananas before: box's place = under the bananas; monkey's place = on the box 
after: contents of monkey's hand = the bananas 


GPS will print the solution: 


walk to place» . 
move box to under the bananas | 
climb box 

get bananas 
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The GPS approach to solving problems is called means-ends analysis: you tell the 
program the means (operators) and the end (goal). The program has proved theorems 
in symbolic logic, computed indefinite integrals, and solved many famous puzzles, such 
as "The Missionaries and the Cannibals", "The Tower of Hanoi", and "The 5-Gallon Jug 
and the 8-Gallon Jug". But the program works slowly, and you must feed it lots of 
information about the problem. The ‘project was abandoned in 1967. 


VISION 
Another large topic in artificial intelligence is computer vision: making the computer see. 
| The first problem tackled was pattern recognition: making the computer read 
handwritten printed letters. The problem is hard, because some people make their 
letters very tall or wide or slanted or curled or close together, and the pen may skip. 
Reasonably successful programs were written, although computers still can't tackle 
script. 

Interest later shifted to picture processing: given a photograph of an object, make 
the computer tell what the object is. The problem is hard, because the photo may be 
taken from an unusual angle and be blurred, and because the computer gets confused 
by shadows. 

Scene analysis is even harder: given a picture of a group of objects, make the 
computer tell which object is which. The problem is hard, because some of the objects 
may be partly hidden behind others, and because a line can have two different 
interpretations: it can be a crease in one object, or a dividing-line between two objects. 
; Most of the research in picture processing and scene analysis was done from 1968 

o 1972. 

Raymond Kurzweil has invented an amazing machine whose camera looks at a book | 

and reads the book, by using a voice synthesizer. Many blind people use it. 


ROBOTS 
Researchers have built robots. The first robots were just for experimental fun, but 
today's robots are truly useful: for example, the Japanese are using robots to manufacture 
ears. In the United States, many young kids are being taught "LOGO", which is a 
language developed at the MIT Artificial Intelligence Laboratory that makes the computer 
control a robot turtle. 


TODAY'S RESEARCH 
Today, research in artificial intelligence is done at four major universities: MIT, 
Carnegie, Stanford, and Edinburgh (Scotland). 


REFLEXIVE CONTROL 
In the Soviet Union, weird researchers have studied reflexive control: they've 
programmed the computer to be disobedient. The first such programmer was Lefevr, 
in 1967. In 1969 Baranov and Trudolyubov extended his work, by making the computer 
win this disobedience game: : 


The human begins by choosing either node 9 or node 26, but doesn't tell the computer 
which node he's chosen. The computer starts at node 12; on each turn, it moves to an 
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/ 


adjacent node. When it reaches either node 9 or node 26, the game ends: if the node 
the computer reaches is the one the human chose, the human wins; if the computer 
reaches the opposite node, the computer wins. Before each move, the human tells the 
computer where to go; but the computer may decide to do the opposite (disobey). 
What strategy should the computer use? If it always obeys, or always disobeys, 
the human will catch on and make it lose. 
Instead, Baranov and Trudolyubov programmed the computer to react as follows: 


obey the human twice, then disobey three times, then obey once, disobey thrice, 
obey once, disobey twice, obey thrice, disobey once, obey thrice, disobey once,... 


The irregular alternation of obedience and disobedience confuses the human in a way 
that works to the computer's advantage. Using that strategy, the computer played 
against 61 humans, and won against 44 of them (72%). In other words, the typical 
human tried to mislead the computer but in fact "clued it in" to the human's goal. 

Later experiments with other games indicated that the following pattern of disobedience 
is usually more effective: 


obey the human twice, disobey thrice, obey once, disobey four times, obey once, 
disobey, thrice, obey thrice, disobey twice, obey thrice, disobey once, obey once, 
disobey once 


MISINFORMATION 
The top researchers in artificial intelligence often exaggerate their achievements, and 
underestimate how long it will take to develop a truly intelligent computer. Don't 
believe everything they say. 

In 1957 Herbert Simon said, "Within ten years a digital computer will be the world's 
chess champion." In 1967, when the ten years had elapsed, the only decent chess 
program was Greenblatt's, which the American Chess Federation rated "class D" 

(which means "poor"). Today, the best chess program is ranked as an "expert" or 
"master"; it's far less than a "senior master" or "international master" or "grandmaster" 
or "world champion". 

In 1957 Simon also said, "Within ten years a digital computer will discover and 
prove an important new mathematical theorem." He was wrong. The computer still 
hasn't discovered or proved any important new mathematical theorem. The closest call 
came in 1976, when it did the non-abstract part of the proof of the "4-color theorem". 

In 1958 Newell, Simon, and Shaw wrote a chess-playing program which they admitted 
was "not fully debugged" so that one "cannot say very much about the behavior of the 
program"; but they claimed it was "good in spots (opening)". In 1959 the founder of 
cybernetics, Norbert Weiner, exaggerated about their program; he told New York 
University's Institute of Philosophy that "chess-playing machines as of now will 
counter the moves of a master player with the moves recognized as right in the 
textbooks, up to some point in the middle game." In the same symposium Michael Scriven 
carried the exaggeration even further by saying, "Machines are already capable of a 
good game." In fact, the program they were describing played very poorly, and in its 
last official bout (October 1960) was beaten by a ten-year-old kid who was a novice. 

In 1960 Herbert Gelernter (who wrote the geometry-theorem program) said, "Today 
hardly an expert will contest the assertion that machines will be proving interesting 
theorems in number theory three years hence." More than twenty years have elapsed since 
then, but neither Gelernter nor anyone else has programmed the computer to prove 
theorems in number theory. 

In June 1963 this article appeared in the Chicago Tribune: 


The development of a machine that can listen to any conversation and type out the 
remarks just like an office secretary was announced yesterday by a Cornell University 
expert on learning machines. The device is expected to be in operation by fall. 

Frank Rosenblatt, director of Cornell's cognitive systems research, said the machine 
will be the largest "thinking" device built to date. Rosenblatt made his announcement 
at a meeting on learning machines at Northwestern University's Technological Institute. 


No such machine exists today, let alone in 1963. 
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| Also in 1963, W. Ross Ashby said, "Gelernter's theorem-proving program has 
| discovered a new proof of the pons asinorum that demands no construction." He said 
{the proof is one that "the greatest mathematicians of 2000 years have failed to notice... 
) which would have evoked the highest praise had it occurred." In fact, the pons asinorum 
\is just the simple theorem that the opposite angles of an isosceles triangle are equal, 
' feo fe computer's constructionless proof had already been discovered by Pappus in 
300 A.D. 
| In 1968 the head of artificial intelligence in Great Britain, Donald Michie, said, 
' "Today machines can play chess at championship level." In fact, when computers were 

allowed to participate in human chess tournaments, they almost always lost. 

In 1970 the head of artificial intelligence at MIT, Marvin Minsky, said: 


‘In from three to eight years we will have a machine with the general intelligence of an 
average human being. I mean a machine that will be able to read Shakespeare, grease 
_acar, play office politics, tell a joke, have a fight. At that point, the machine will 
_begin to educate itself with fantastic speed. In a few months it will be at genius level, 
and a few months after that its powers will be incalculable. 


_His prediction that it would happen in three to eight years— between 1973 and 1978— 
_was ridiculous. I doubt it will happen during this century, if ever. 
Exaggerations concern not only the present and future but also the past. Back in 
1962 Arthur Samuel's checker program won one game against Robert Nealey, "a former 
Connecticut checkers champion". Notice that Nealey was a former champion, not 
the current champion when the game was played. Also notice the program won a single 
-game, not a match; and in fact it lost to Nealey later. In 1971 James Slagle slid over 
those niceties, when he just said that the program "once beat the champion of 
Connecticut." More recent writers, reading Slagle's words, have gone a step further 
and omitted the word once: one textbook says, "The current program beat the 
champion of Connecticut". It's not true. 
Why do leaders of artificial intelligence consistently exaggerate? The answer is 
obvious: to get more research funds from the government. Hubert Dreyfus, chairman 
of the philosophy department at Berkeley, annoys them by attacking their claims. 


THE BRAIN 

| Will the computer be able to imitate the human brain? Opinions vary. 

Marvin Minsky, head of artificial intelligence at MIT, says yes: "After all, the 
/ human brain is just a computer that happens to be made out of meat." 

Biologists argue no: the brain is composed of 12 billion neurons, each of which has 
' between 5,000 and 60,000 dendrites for input and a similar number of axons. for output; 
| the neurons act in peculiar ways, and no computer could imitate all that with complete 

accuracy— "The neuron is qualitatively quite different from on-off components of 

current computers." 

Herbert Simon (head of artificial intelligence at Carnegie and a psychologist), points 
out that certain aspects of the brain, such as short-term memory, are known to have 
very limited capacity and ability. He believes the inner workings of the brain are 

reasonably simple; it produces complicated output only because it receives complicated 

input from the sense organs and environment: "A man, viewed as a behaving system, 

is quite simple. The apparent complexity of his behavior over time is largely a 
reflection of the complexity of the environment in which he finds himself." Simon believes 

‘that if a computer were given good sense organs, the ability to move, and an elementary 
ability to learn, and were placed in a stimulating environment (unlike the dull four walls 
of a computer center), it would start acting in complex ways also. 

Hubert Dreyfus, chairman of the philosophy department at Berkeley, argues that 

progress in artificial intelligence has been very small, is being blocked now by 
impenetrable barriers, and— most important— the computer's approach to solving 
problems bears little relationship to the more powerful methods used by humans. 

‘He's cynical about the claim that an improvement in computer programs represents © 

progress toward understanding the human mind, which is altogether different: 
"According to this definition, the first man to climb a tree could claim tangible 

| progress toward reaching the moon. Rather than climbing blindly, it's better to 

look where one is going." 
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rIASSLES IN COMPUTERIZING 


f 


WARNING 
When you buy a new computer for your business, you'll have lots of hassles. 


REPAIRS 
Since a complete computer system includes so many parts (CPU, RAM, keyboard, 
disk drives, printer, software, etc.) , at least one of them won't work properly, and 
you'll need to fix it. Since the manufacturer or store will provide free repairs during 
the first 90 days, you'll lose nothing but your temper. 


MANUALS 
You won't completely understand the manuals for your hardware and software, so 
you'll ask your friends and me for help. You can also try getting help from the 
manufacturers and dealers; but if your question's long-winded, their answers will 
be curt. 

If the dealer who sold you the computer is honest, he'll say, "I don't know how to 
run all the hardware and software I sold you. To learn to runit, read the manuals. 
No, I haven't read them myself, because they're too long-winded, complicated and 
vague. If you don't like the manuals, take our courses, which are expensive and 
won't teach you as much as you need to know, but at least they'll make you feel 
you're making some progress." 

Most dealers are not that candid. 


PROGRAMS 
If you try writing your own programs, you'll discover Murphy's law: no matter how 
long you think a program will take to write, it will take you longer. If you're wiser 
and try to buy a finished program from somebody else, you'll find the program 
doesn't work as well as advertised, its manual is missing or unintelligible, and you'll 
need to modify the program to meet your personal needs. 


DATA ENTRY 
If you're lucky enough to figure out how to use the program, your next odious chore 
is to type the data you want the program to process. Typing the data into a computer 
program is sheer drudgery, but you must do it (or stick it to your subordinates). 


COWORKERS 
Your next unhappy surprise is that your coworkers will hate and fear the computer. 
You must become their teacher and psychologist. 


WORTHWHILE ? 

Those hassles are just the beginning of what can become an extended nightmare. 
Buying a computer at first seems joyfully exciting but quickly becomes 
nerve-racking. 

Eventually, you'll get past the nerve-racking transition stage. Then you'll be 
thrilled. . 

That painful transition is worth the effort, if you plan to use the computer a lot. 
But if you plan to use a computer just occasionally, you might be better off not 
buying a computer at all: continue doing your work manually. 
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IBM VERSUS MAC 
Most top-notch business programs assume you have an IBM PC or a Mac. 

You can buy an IBM computer or Mac for about $1700. The exact price depends on 
which model you buy, where you buy it, and which options you choose (how many 
disk drives, and so on). 

For the typical business, the most cost-effective computer is neither the Mac nor 
an IBM: instead buy an IBM PC clone. Most clones imitate the IBM's computers well 
and cost half as much as IBM's originals. 

The IBM-versus-Mac contest would be more interesting if somebody would clone 
the Mac; but nobody dares, because so many of the Mac's parts are copyrighted and 
patented by Apple. The IBM PC can be cloned more easily, because IBM buys most of 
its parts from suppliers who also sell to IBM's competitors. Only a few parts in IBM's 
computers are built and patented by IBM. 

For many years, IBM didn't enforce its patents. In 1988, IBM sent notices to 
Sai makers, reminding them of the patents and demanding retroactive licensing 
ees. 


HOW BIG A COMPUTER SHOULD YOU BUY? 
Suppose your company's growing. Should you buy a computer just big enough to 
meet your current needs, or a larger computer that can meet future needs also? 

Too many companies make the mistake of buying the larger computer without 
analyzing the finances. You might be better off buying a small computer now, which 
you can upgrade in the future by adding extra PC cards and peripherals. The 
future price of upgrading will be low, since industry prices drop 30% a year. 

For example, suppose you're debating between a $2000 computer and a $3000 
computer, and suppose the $2000 computer can be upgraded to equal the $3000 
computer by adding $1000 of PC cards and peripherals. Should you splurge and buy 
the $3000 computer now, or instead be conservative and buy just the $2000 
computer? 

To find out, compute the cost of buying the $2000 computer now and upgrading it 
next year. Since prices drop 30% per year, the upgrade now priced at $1000 will 
probably cost just $700 next year—saving you $300. 

So if you wait a year to buy the upgrade, you'll save $300. You'll also gain about 
$100 in interest and dividends, by investing the unspent $1000 for a year in a 
money-market fund or in your business or by using the $1000 to reduce loan 
payments. So altogether, you'll save about $400 by waiting a year to buy the 
upgrade. On the other hand, you'll be deprived of the upgrade's labor-saving 
benefits, for a year. Conclusion: get the upgrade now instead of later only if the 
- upgrade will reduce your need for manual labor this year by at least $400 in wages. 

That argument's correct financially but not psychologically. Though buying an 
expensive $3000 computer might not be "cost-justified" this year, you'll probably 
wind up buying it anyway, just to give your company the aura of being modern 
high-tech, and as a public-relations ploy to impress your customers, competitors, 
and employees. 


SHOULD YOU BUY AN AT CLONE? 

Should you buy an AT clone, which goes faster than an XT clone and costs more? 

Word processing. If you want a computer just for word processing’, you do not 
need to buy an AT clone. An XT clone is fast enough, since it goes faster than you 
can think and type and faster than the printer can print. To splurge on an AT clone 
is to waste money. 

If an XT does word processing too slowly, the fault is not the hardware: it's the 
software! Buy a faster word processing program, such as Word Perfect or Q&A. 
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Data management. An XT clone is fast enough to run a data-management system if 
your file contains fewer than 10,000 records. Beyond 10,000 records, you'll 
appreciate the extra speed of an AT. 

When buying an AT for data management, make sure it includes an AT-class hard 
drive, whose average access time is 40 or 30 milliseconds. Some clone makers try to 
cut corners by selling an AT containing an XT-class hard drive, whose average 
access is slower (65 milliseconds). An AT clone containing an XT-class hard drive is 
called half-fast (or half-assed). 

If your file contains more than 10,000 records but you don't want to spend the 
extra money for an AT, try splitting the file into smaller files—small enough so that 
an XT can handle them reasonably quickly. For example, if you want to keep track of 
more than 10,000 customers, consider eliminating the "inactive" customers (who 
haven't bought from you in a long time), by moving them to a separate file. 

Other applications. An AT becomes cost-justified for dealing with large data files 
(containing over 10,000 records), large spreadsheets (containing over 100 rows), 
and desktop-publishing programs (such as Pagemaker and Ventura). An AT is 
required to run the fanciest. spreadsheet program (Excel) and the fanciest 
computer-aided design program (Autocad). 

Going all the way. If you buy an AT clone, go all the way: buy a hard disk that's 
fast (30 milliseconds) and large (70 megabytes), and make sure the CPU is fast (12 
megahertz). Make sure the RAM is fast (80-nanosecond access time), so that the CPU 
doesn't have to wait for the RAM tocatch up. (That ideal situation is called "no wait 
states".) That kind of nice AT system costs only a few hundred dollars more than 
buying a stripped system and is well worth it! 

To go even faster, you can buy a computer containing an 80386 CPU instead of an 
80286. Most of today's software goes 25% faster on a typical 80386 CPU than on a 
12-megahertz 0-wait-state 80286. The "25% faster" isn't enough to justify the extra 
cost of buying an 80386. 

Companies are starting to develop versions of software designed especially for 
the 80386. Those new versions will run much faster on an 80386 and may justify the 
80386's cost. 

Since prices drop 30% a year, the prices of AT clones and 80386 computers will 
someday drop low enough so I'll recommend buying them. In the meantime, for word 
processing and other light tasks your best strategy is to buy an XT. A few years 
from now, when AT and 80386 prices are lower, buy one of those faster computers 
and give the XT to an assistant, friend, or kid. Or keep the XT next to the AT, so 
you can do two tasks at once and have the ultimate "multiprocessing" system! 


SHARING 
Suppose you're sitting at a computer in your office and want to send data to a 
colleague who's sitting at a different computer. One way is to run wires between the 
computers, to form a computer network. But other ways are simpler and cheaper! 

For example, consider using the sneaker net. To transfer data to your colleague 
by using the sneaker net, just copy the data onto a floppy disk, then put on your 
sneakers and run with your floppy to your colleague's desk! That method is also 
called the Nike net. In Boston, it's called the Reebok net. 

Suppose you and a colleague want to share a printer. Again, one way is to use 
fancy wiring—-a computer network. But here's a simpler way: just unplug the 
printer's cable from one computer and reattach it to the other computer! 

If you're too lazy to unplug the printer's cable, another alternative is to buy a 
box called an AB switch box. Into one side of the box, plug the printer's cable; into 
the other side of the box, plug two wires (called "A" and "B") that go to the two 
computers. The switch box has a switch on it; if you flip the switch to position A, 
electricity flows between the printer and the computer attached to wire A; if you flip 
the switch to position B instead, the printer is electronically attached to B's 
computer. 

To let three people share a printer, get an ABC switch box, which attaches the 
printer to three computers called A, B, and C. You can get it for just $30 (plus $2 
shipping) from Compu-Add in Texas; phone 800-666-1872. 
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BUSINESS SOFTWARE 


WORD PROCESSING 
The most popular word-processing program for the IBM PC is Word Perfect, which 
has 303 of the market. The next most popular is Microsoft Word, which has 20%. 

Programs that help you compose newsletters are called desktop-publishing 
programs. They let you easily create headlines and multiple columns with graphics. 
The fanciest such programs are Aldus Pagemaker (for the Macintosh and IBM PC) 
and Ventura Publisher (just for the IBM PC). 

The dividing line between "word processing" and "desktop publishing" is blurry. 
Fancy word processors, such as Word Perfect and Microsoft Word, let you create 
multiple columns, but can't handle headlines or graphics well. Fancy desktop 
publishers, such as Aldus Pagemaker and Ventura Publisher, let you create text and 
edit it, but lack advanced editing features such as spelling correction. 

To create a newsletter quickly, create the text by using a full-featured word 
processor, create the graphics by using a full-featured graphics program, and then 
rearrange the text and graphics into headlined columns by using a 
desktop- publishing program. 


FROM SPREADSHEETS TO DATA MANAGEMENT 
If your spreadsheet contains too many rows and columns to fit in the IBM PC's RAM, 
you'll want to buy more RAM. But you might be wiser to give up the spreadsheet 
program and switch to a data-management system instead, since data-management 
systems store data on disks instead of in RAM. Data-management systems produce 
the same pretty tables as spreadsheet programs, so your boss won't know you 
switched. 

The best data-management program is Q&A. I run my entire business on it, and 
so do other software analysts. 

Instead of using Q&A, you can try creating your own data-management program, 
by using a programming language called DBASE. Q&A and DBASE are the two most 
popular tools for data management on the IBM PC. Q8A is easier than DBASE but has 
some limitations. If you can live within those limitations, use Q&A; if you can't, 
you'll have to use DBASE. 

The typical business buys DBASE and hires a consultant to write DBASE 
programs. Six months later, the business complains that it's paid the consultant 
$2000 in fees and the consultant's program still doesn't work. The business would 
have been better off using Q&A, which is so easy it doesn't need a consultant. 
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PSYCHOLOGICAL.FACTORS 
The most successful business programs are the ones that make work become fun, by 
turning the work into a video game. That's why word processing programs and 
spreadsheet programs are so successful—they let you move letters and numbers 
around the screen, edit the errors by "zapping" them, and let you press a button 
that makes the screen explode with totals, subtotals, counts, and other information. 

Sometimes, word processing can be too much fun. Because it's so much fun to edit 
on a word processor, people using word processors edit more thoroughly than people 
using typewriters or pens. Word processing fosters compulsive perfectionism. 

Word-processed documents wind up better written than non-electronic documents 
but take longer to finish. According to a survey by Colorado State, people using 
word processors take about 30% longer to generate memos than people using pens, 
and the word-processed memos are needlessly long. 

Spreadsheet programs can become weapons that mesmerize people into believing 
everything you say—even if what you're saying is wrong. For example, suppose you 
want to submit a budget. If you scribble the budget on a scrap of paper, nobody will 
take you seriously. On the other hand, if you put your data into a spreadsheet 
program that spits out beautifully aligned columns with totals, subtotals, 
percentages, bar charts, and pie charts, your audience will assume your budget's 
carefully thought out and applaud it, even though it's just a pretty presentation of 
the same crude guesses you'd have scribbled on paper. 


VERTICAL SOFTWARE 
Software that can be used by a wide variety of businesses is called horizontal 
software. Programs for word processing, spreadsheets, and data management are all 
examples of horizontal software. 

Software that's targeted to a specific industry is called vertical software. 
Programs specifically for doctors, lawyers, and real-estate management are all 
examples of vertical software. 

Vertical software is expensive, because it can't be mass-marketed to the general 
public and isn't available from discount dealers. The typical vertical-market program 
costs about $2000, whereas the typical horizontal-market program costs about $200 
from discount dealers. 

Until the price of vertical software declines, I recommend using horizontal 
software instead. With just a few hours of effort, you can customize most horizontal 
software to fit your own specific needs. 
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TWO AWFUL TRUTHS 
If you hire a consultant to computerize your business, be careful! You can spend 
thousands of dollars on consultants without getting any benefit. Remember these two 
AWLUIATPULNS.. 3.9.4. 

1. Every consultant is biased. If you ask a consultant to recommend a computer 
or software, the consultant will recommend whatever the consultant knows best and 
feels most comfortable with-—even if it's not the best choice for you. Before acting on 
the consultant's recommendation, get a second opinion from another consultant or a 
computer store or your friends or me! 

2. Programmers underestimate how long they'll take to write your program. Too 
optimistic, they don't allocate enough time to fix last-minute bugs, repair computer 
hardware, chat about what you rea//y want, handle unusual input, modify your 
desires, write manuals to explain the programs, and personally train your staff. to 
operate the programs. 

Years ago, the Rand Corporation studied programmer speed and found that the 
most accurate way to estimate programming time is to multiply the programmer's 
guess by 3. For example, if the programmer says "I'll finish the program in a week", 
the programmer will probably really need 3 weeks. 

Cynics say the situation's even worse. They say the most accurate way to 
estimate programming time is to multiply the programmer's guess by 2 and then go to 
the next unit of time. For example, a programmer who says "a day" will probably 
need 2 weeks. 


PROTECT YOURSELF 

To protect yourself from consultants and programmers who are biased, slow, 
incompetent, or "incompatible with your personality", hire the person for just a 
small part of your ultimate project, to see whether that part gets done well, quickly, 
and cost-effectively. If so, pay the expert for that part and then contract for the 
next small part. 

That way, if you and the expert ever argue, you'll be arguing over just a small 
part of the project and a small amount of money, so neither of you will feel "ripped 
off in a big way". | 
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ACCOURTETN 


FIVE PROGRAMS 
In a typical store, 


the employees 

resell products 

to customers 

for a profit, 

after buying the products from suppliers. 


To manage the store, you must keep track of all five concerns: your employees, 
products, customers, profit, and suppliers. 

Each requires its own computer program. To compute what to pay your 
employees, get a payroll program. To monitor which products you have in stock, get 
an inventory program. To keep track of what your customers owe—how much you're 
supposed to receive from them—get an accounts-receivable program. To compute 
your profits, get a general-ledger program. To handle debts to your suppliers and 
figure out how much to pay, get an accounts-payable program. 

So altogether, you need five programs: payroll (PR), inventory (INV), accounts 
receivable (A/R), general ledger (GL), and accounts payable (A/P). Let's look at 
them more closely. 

Payroll. The payroll program writes paychecks to your employees. It computes 
how much each employee earned (the employee's gross wage), then subtracts 
various deductions, and writes the difference (net pay) onto the paycheck. 

It handles several kinds of deductions: the federal withholding tax (FED), the 
Federal Insurance Contributions Act's social-security tax (FICA SOCSEC), state 
taxes, local taxes, and payments to health and pension plans. 

It prints checks to the government, to pay the taxes that were deducted and your 
state's unemployment insurance. At the end of each quarter and year, it fills in all 
the payroll-information forms that government bureaucrats require. 

If the program's fancy, it counts how many employees are in each department of 
your company, totals how much money each department is spending for labor, and 
keeps track of employee vacations and attendance records. 

Before buying a payroll program, check whether it includes a table that lets it 
automatically compute your state's income tax. 

Inventory. The inventory program counts how many products are in stock. 

It prints each product's sales history, predicts when each product will sell out, 
and notices which products are generating the largest profits. By analyzing all that 
information, it determines which products to reorder and in what quantities. 

For each product it says to reorder, it prints a purchase order, to mail to the 
supplier. It keeps track of whether the supplier has sent the requested goods. 

At the end of the year, it totals the dollar value of all the products in the 
inventory, to help compute the value of your business and your tax. 

Accounts receivable. The accounts-receivable program computes how much each 
customer owes. For each customer who pays immediately, the program prints a 
receipt; for customers who plan to pay later, it prints a bi/l (for services) and an 
invoice (for goods). 

It notices which bills and invoices have been paid. It sends dunning notices to 
the customers who are late in paying--the ones that are past-due. It refuses to 
accept orders from customers who are past-due or reaching their credit limit. 

It computes a finance charge for customers who pay late. It gives discounts to 
customers.who pay quickly or buy large quantities. 

It records each customer's name, address, phone number, and buying habits, so 
your sales force can talk the customer into buying even more. It records your 
salesperson's name, and computes the salesperson's commission. 

Before your company services a customer, the program gives the customer a 
written estimate of the cost. 
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General ledger. The general-ledger program computes the company's profit, by 
combining info from the other five programs. It prints a variety of profit reports for 
your stockholders, bank, financial planners, and government. The reports show the 
results for the day, week, month, quarter, and year. 

It tracks each department's budget, to make sure that no department spends too 
much. To protect your money from being stolen or embezzled or lost, the program 
performs double-entry bookkeeping: whenever it credits money to one account, it 
debits the same amount of money from another account, so that the books balance. 

If the program's fancy, it stores your business's history for the last several 
years. It compares your current profit against earlier profits, and each current 
budget item against previous budgets. It tells how much your business is improving 
or declining. It even tries to predict your business's future. 

Accounts payable. The accounts-payable program prints checks to your 
suppliers, to pay for the products they sent you. 

The program delays payment as long as a supplier allows, so that you can 
temporarily invest that money in your own business, without requiring bank loans. 
That's called, "making full use of the supplier's line of credit". 

The program stores each supplier's name, address, phone number, product line, 
and discount policy, so that you can purchase easily and wisely. 


WHICH ACCOUNTING PACKAGE TO BUY 
On the whole, the best accounting package for microcomputers is Solomon. It runs 
on the IBM PC. Unfortunately, it's expensive. It costs $795 per module ($795 for 
payroll, $795 for accounts receivable, etc.), so that the total price for all five © 
modules is $3975. 

The cheapest decent accounting package is Dac Easy Accounting. It runs on the 
IBM PC. It lists for just $99.95 and includes all five modules except payroll. 
Telemart, a discount dealer, sells it for just $53. The payroll module, Dac Easy 
Payroll, is priced separately at $99.95 list ($53 from Telemart). So the total price for 
all five modules is $199.90 list ($106 from Telemart). Better yet, get the Dac Easy 
Bonus Pack, which includes Dac Easy Accounting, Dac Easy Payroll, tutorials, and 
graphics for $199.95 list ($109 from Telemart). 

Dac's main competitor is Bedford Integrated Accounting, which includes all five 
modules for a total of $249 list ($142 from Telemart). Bedford is easier and more 
convenient than Dac, though Dac's newest version (3.0) is almost as good as 
Bedford. Unfortunately, Bedford works only if your business is very small (no more 
than 999 customers, 999 inventory items, and 100 categories of expenses). 

Another excellent competitor is Peachtree Complete 2, which includes all five 
modules and costs $199 list ($139 from Telemart). 

For further info about those accounting systems, read the reviews in the 
September 15, 1987 issue of PC Magazine and the November 16, 1987 issue of 
Infoworld. You can also contact the software publishers: 


Solomon's published by TLB (Great Valley Corporate Center, 267 Great Valley 
Parkway, Malvern, PA 19355, 215-644-3344). 


Dac Easy's published by Dac Software (4801 Spring Valley Rd. Building 110-B, 
Dallas, TX 75244, 800-992-7779). 


Bedford Integrated Accounting's published by Bedford Software (15311 N.E. 90th 
St., Redmond, WA 98052, 206-883-0074). 


Peachtree Complete 2 is published by Peachtree Software (4355 Shackleford Rd., 
Norcross, GA 30093, 404-564-5800, out-of-state 800-24PEACH). 
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TWO KINDS OF ACCOUNTING 
There are two ways to do accounting: conservative and cowboy. 

The conservative way is to do double-entry bookkeeping, which records each 
transaction as a "credit" to one account and a "debit" from an offsetting account. 
That forces the books to balance and prevents any department from going over 
budget or stealing money. 

All "professional" accountants use that conservative method. But it's tedious and 
hard for a novice to fully understand. 

If the company is small enough so that the president knows all the employees 
personally, watches their work, personally approves all payments, and has a good 
gut feel for how the business is doing, the conservative "double-entry" method is an 
unnecessary waste of time. Instead, the president can simply total all the payments 
that the company received, total all the checks that the company wrote, total the 
value of the inventory, and report those totals to the government at tax time—after 
breaking down those totals into the subcategories that the government requires. The 
president can do all that easily with a pocket calculator or a spreadsheet program 
(such as Lotus 1-2-3). That approach is called cowboy, because it's quick but 
suffers from a dangerous lack of controls. 

Most small companies having fewer than 10 employees use that cowboy 
approach--and so do I! That approach is reasonable only if the president is 
personally involved in all facets of the company's day-to-day operations and has 
enough common-sense wisdom to compensate for a lack of computer- generated 
analyses. 


ACCOUNTING HASSLES 
Although some companies use standard accounting packages such as Solomon, 
Dac-Easy, and Back to Basics, most do not, for four reasons. 


1. To use those accounting packages, you must understand the theory of debits 


and credits, which is complicated. 

_ 2, Those accounting packages work best if your company's an intermediary that 
buys from manufacturers and resells to stores. 

If you run a retail store in which most customers pay cash, you'll complain that 
the accounting packages don't automate your cash register, and they don't 
automatically copy data from the cash register slips to the sales records and 
inventory module. If you run a non-profit organization, you'll dislike how the 
accounting packages keep bragging about your "profit" instead of how much you're 
"under budget". If you run a doctor's office, you'll regret that the accounting 
packages don't record your patients' medical histories and needs, don't fill in the 
forms that your patient's insurance companies require, and can't handle multiple 
payers (in which the patient pays part of the bill and several insurance companies 
split the rest of the bill). If you run a consulting firm that dispenses services rather 
than goods, you typically won't need inventory or accounts-payable modules, and 
many items in the other modules will be irrelevant. 

3. Each company does business in its own unique way, whose peculiarities can't 
be handled well by any general-purpose accounting package. 

For example, your company may have a unique way of offering discounts to 
customers. To make the computer automatically compute those special discounts, you 
must write your own program; but then you'll have difficulty making your program 
transfer that discount information to the accounting package you bought. 

Because of each company's uniqueness, the typical company avoids generic 
accounting packages and instead hires a programmer to write a customized program, 
by using a language such as BASIC or DBASE. 

4. General-purpose accounting packages print stondern reports but don't let you 
invent your own. Instead of using the reports generated by general-purpose 
accounting packsccs , many managers prefer to design their own reports, by copying 
the company's data into a spreadsheet program (such as 1-2-3) or data-management 
system (such as Q&A or DBASE) and then "fiddling around" until the report looks 
pretty. General-purpose accounting packages don't let you fiddle. 
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HOW TO AVOID POSTING 
At the end of each month, you must command the typical accounting system to copy 
information from the other modules to the general ledger. That monthly copying, 
which is called posting, updates the general ledger. With such a system, you must 
wait until the end of the month to find out your profit. 

Paragon and New Views are wonderful accounting systems that do not require 
monthly posting. In those wonderful systems, each transaction in the entire 
business is posted to the general ledger immediately and automatically, so that the 
general ledger is always up-to-date, and you can find out your current profit at any 
hour of the day. 

Paragon has been published by a company called Pyramid, which the IRS recently 
raided and shut down, because the owners of Pyramid were cheating on payroll 
taxes. Some former employees of Pyramid are trying to sell Paragon again, but 
they're raising the price too high to be popular. 

New Views is published by Q. W. Page in Toronto (416-923-4567). It's. a 
compromise between an accounting package and a spreadsheet program. Like an 


accounting package, it understands accounting jargon (such as "debits" and ~ 


"eredits") and can handle the five modules; like a spreadsheet program, it lets you 
play with the figures and design your own analyses and reports. It costs $695 
American (or $895 Canadian). 


© 
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SUBROUTINE S 


REMINDER 
This chapter explains subroutines and the other tricks for advanced programming 
using BASIC. Before reading this chapter, learn BASIC's fundamentals by reading 
chapters 4 and 5 of volume 1. 
This chapter explains advanced Modern Microsoft BASIC. To find out how your 
computer's BASIC differs from Modern Microsoft, see appendix 1 at the end of this 
volume—and also see appendix 1 in volume 1. 


SIMPLE SUBROUTINES 
Here's a simple program: 


10 PRINT "THE" 
20 GO TO 1000 
30 PRINT "DEAD" 
40 END 


1000 PRINT "BIRD" 
1010 PRINT "IS" 
1020 GO TO 30 


It makes the computer print: 


The program consists of two parts. The main part (lines 10-40) is called the main 
routine; the bottom part (lines 1000-1020) is called the subroutine. The bottom line 
of the main routine says END. 

Line 20, which is in the main routine, makes the computer skip to the subroutine. 
Line 1020, in the subroutine, makes the computer return to the main routine. 

To make the program more elegant, change lines 20 and 1020: 


10° PRINT: THEY 

New £tne>+20 GOSUB 1000 
30 PRINT "DEAD" 
40 END 


1000 PRINT "BIRD" 
1010 PRINT 21S" 
New Ltne>>1020 RETURN 


The new line 20 says: GO to the SUBroutine that begins at line 1000. The new line 
1020 says: RETURN to the main routine, where you left off. Like the old program, 


the new program prints: 


THE 
BIRD 
IS 
DEAD 


GOSUB is like GO TO. The GOSUB 1000 means "GO TO line 1000, and remember 


' where you had come from"; so the computer goes to line 1000, while remembering that 


it had come from line 20. In line 1020, the RETURN means "RETURN to where you 
had come from"; so the computer returns to line 20, and then proceeds from line 20 
to line 30, which prints the word "DEAD". 

The bottom line of a main routine should say END. The bottom line of a subroutine 
should say RETURN. 

Whenever you want the computer to go do a subroutine, say GOSUB. 
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YANKEE DOODLE 
This program prints the or/ginal version of Yankee Doodle: 


Print the first vetser+>>10 
20 


Do the chorus, and then come back>>50 
Print the second vers e260 


Do the chorus, and then come back>+>100 


Print the third vers 0223939110 
120 
130 
140 


Do the chorus, and then come back>+150 
That's the end of the so0ngr +160 


Here's the chorus 1 000 
1010 
1020 
1030 
1040 
1050 
1060 


PRINT 
PRINT 
PRINT 
PRINT 


GOSUB 


PRINT 
PRINT 
PRINT 
PRINT 


GOSUB 


PRINT 
PRINT 
PRINT 
PRINT 


GOSUB 
END 


"FATHER AND I WENT DOWN TO CAMP!" 
"ALONG WITH CAPTAIN GOODING," 

"AND THERE WE SAW THE MEN AND BOYS" 
"AS THICK AS HASTY PUDDING." 


1000 


"AND THERE WAS CAPTAIN WASHINGTON" 
"UPON A SLAPPING STALLION," 
"A-GIVING ORDERS TO HIS MEN;" 

"I GUESS THERE WERE A MILLION!" 


1000 


"THE FLAMING RIBBONS IN HIS HAT," 
"THEY LOOKED SO TARNAL FINE, AH," 
''I WANTED POCKILY TO GET" 
"TO GIVE TO MY JEMIMAH." 


1000 


PRINT 

PRINT "YANKEE DOODLE, KEEP IT UP." 
PRINT ''YANKEE DOODLE DANDY," 

PRINT ''MIND THE MUSIC AND THE STEP," 
PRINT ''AND WITH THE GIRLS BE HANDY." 
PRINT 

RETURN 


Lines 10-40 print the first verse; lines 60-90 print the second; lines 110-140 print 


the third. At the end of each verse, the computer is told to "GOSUB 1000", 


means go to line 1000, print the chorus (lines 1000-1050), and then RETURN to 
where it left off. Lines 1000-1060, which print the chorus, are the subroutine; the 
verses (lines 10-160) are the main routine. Lines 1000 and 1050 make the computer 
print a blank line at the beginning and end of the chorus. The bottom line of the main 
routine is END; the bottom line of the subroutine is RETURN. 

If you accidentally omit line 160 (which says END), the computer will proceed to 
do the subroutine an extra time, and then won't know where to RETURN. It will 


gripe, by saying: 
RETURN BEFORE GOSUB 


To avoid such gripes, the last line of a main routine should be END. 
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which 


LOVE POEM 
This program prints a love poem: 


10 PRINT "THE MOST BEAUTIFUL THING" 
20 PRINT "IN THE WHOLE WIDE WORLD" 
SO PRINT NIS: cau! 

40 PRINT "LOVE!" 

50 PRINT "THE OPPOSITE OF HATE IS" 
60 PRINT "LOVE!" 

70 PRINT "THE OPPOSITE OF WAR IS" 
80 PRINT "LOVE!" 

90 PRINT "THE OPPOSITE OF DESPAIR IS" 
100 PRINT "LOVE!" 

110 PRINT "AND WHEN I LOOK AT You," 
120 PRINT "I FEEL LOTS OF" 

130 PRINT "LOVE!" 


In that program, lines 40, 60, 80, 100, and 130 print the word LOVE. Let's make 
those lines print the word LOVE larger, like this: 


* * k * kkk kK* 
* * x * * * 

* * * * * kkk 

* * * x * * 
kKkKkKkKk * * zkKkekkKk 
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shee we 


Here's how: 


10 PRINT ''THE MOST BEAUTIFUL THING" 
20 PRINT ''IN THE WHOLE WIDE WORLD" 
BOGPRIN (ie k Owes 
New Line>>40 GOSUB 1000 
50 PRINT "THE OPPOSITE OF HATE IS" 
New L£ines+60 GOSUB 1000 
70 PRINT ''THE OPPOSITE OF WAR IS" 
New 2£ine>+80 GOSUB 1000 
90 PRINT ''THE OPPOSITE OF DESPAIR IS" 
New 2£ine>>100 GOSUB 1000 
-410 PRINT ''AND WHEN I LOOK AT YOU," 
120 PRINT "I FEEL LOTS OF" 
New £tne>>130 GOSUB 1000 
New £ine>>140 END 


+1000 
1010 
1020 
1030 
1040 
1050 
1060 
>++1070 


SUBROUTINE 


PRINT ''x * x * a a a a oe 


PRINT "'* Ahete e * * x! 

PRINT ''* * x Lass hala! x ok 
PRINT "'* oat x x 

PRINT '* * * x * * * kk kk 
PRINT 

PRINT 

RETURN 


In that new version, lines 40, 60, 80, 100, and 130 say GOSUB 1000 instead of PRINT 
"LOVE!". The GOSUB 1000 means: do the subroutine that begins at line 1000. The 
subroutine prints the word LOVE in large letters. 


es ae 
pone awsw eee 
CLK LL 
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OLD LADY 


Here are the lyrics to a famous song: 
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There was an old lady who swallowed a fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a spider 


That wiggled and jiggled and tickled inside her. 


She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a bird. 
Oh, how absurd! To swallow a bird! 
She swallowed the bird to catch the spider 


That wiggled and jiggled and tickled inside her. 


She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a cat. 
Imagine that! To swallow a cat! 

She swallowed the cat to catch the bird. 
She swallowed the bird to catch the spider 


That wiggled and jiggled and tickled inside her. 


She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a dog. 
I swear on this log! She swallowed that dog! 
She swallowed the dog to catch the cat. 

She swallowed the cat to catch the bird. 

She swallowed the bird to catch the spider 


That wiggled and jiggled and tickled inside her. 


She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a goat. 
Including its coat, she swallowed that goat! 
She swallowed the goat to catch the dog. 
She swallowed the dog to catch the cat. 

She swallowed the cat to catch the bird. 

She swallowed the bird to catch the spider 


That wiggled and jiggled and tickled inside her. 


She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


There was an old lady who swallowed a cow. 
I don't know how she swallowed that cow! 
She swallowed the cow to catch the goat. 
She swallowed the goat to catch the dog. 
She swallowed the dog to catch the cat. 

She swallowed the cat to catch the bird. 
She swallowed the bird to catch the spider 


That wiggled and jiggled and tickled inside her. 


She swallowed the spider to catch the fly, 
But I don't know why she swallowed the fly. 
Perhaps she'll die. 


— - 


There was an old lady who swallowed a horse. 
And she died, of course! 


This program prints the song: 


10 AS="'THERE WAS AN OLD LADY WHO SWALLOWED A "' 

20 PRINT A$;"FLY.'': GOSUB 1070 

30 PRINT A$;"'SPIDER": GOSUB 1050 

40 PRINT A$;"BIRD.": PRINT "OH, HOW ABSURD! TO SWALLOW A BIRD!": GOSUB 1040 

50 PRINT A$;"CAT."': PRINT "IMAGINE THAT! TO SWALLOW A CAT!": GOSUB 1030 

60 PRINT A$;"'DOG.": PRINT "I SWEAR ON THIS LOG! SHE SWALLOWED THAT DOG!'"': GOSUB 1020 
70 PRINT AS;"GOAT."': PRINT "INCLUDING ITS COAT, SHE SWALLOWED THAT GOAT!": GOSUB 1010 
80 PRINT A$;"COW."': PRINT "I DON'T KNOW HOW SHE SWALLOWED THAT COW!"': GOSUB 1000 

90 PRINT A$;"HORSE,"': PRINT "AND SHE DIED, OF COURSE!" 

100 END 


1000 PRINT "SHE SWALLOWED THE COW TO CATCH THE GOAT." 
1010 PRINT ''SHE SWALLOWED THE GOAT TQ CATCH THE DOG." 
1020 PRINT ''SHE SWALLOWED THE DOG TO CATCH THE CAT." 
1030 PRINT "SHE SWALLOWED THE CAT TO CATCH THE BIRD." 
1040 PRINT ''SHE SWALLOWED THE BIRD TO CATCH THE SPIDER" 
1050 PRINT "THAT WIGGLED AND JIGGLED AND TICKLED INSIDE HER." 
1060 PRINT ''SHE SWALLOWED THE SPIDER TO CATCH THE FLY," 
1070 PRINT "BUT I DON'T KNOW WHY SHE SWALLOWED THE FLY." 
1080 PRINT "PERHAPS SHE'LL DIE." 

1090 PRINT 

1100 RETURN 


Lines 1000-1100 are a subroutine. The subroutine tells the whole story. In line 20, 
the GOSUB says to do just part of the subroutine—the part that begins at line 1070. 
Line 30 says to do more of the subroutine—by beginning at line 1050. Lines 40, 50, 
60, and 70 do progressively larger chunks of the subroutine. Line 80 is the climax: 
it says to do a// of the subroutine. Line 90 provides a humorous ending. 
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NESTING 
One subroutine can lead to another: ; 


Main routine >10 PRINT "MY" 
20 GO SUB 1000 ; 
30 PRINT ''NOSE" ¥, 
40 END 


Subroutine 1000>+1000 PRINT "TOE" 
1010 PRINT "IS" 
1020 GO SUB 2000 
1030 PRINT "YOUR" 
1040 RETURN 


Subroutine 2000++2000 PRINT "STUCK" 
2010 PRINT "IN" 
2020 RETURN 


The program consists of three routines. The main routine ends with END; each 
Subroutine ends with RETURN. 

The main routine consists of lines 10, 20, 30, and 40. Let's see what those lines 
do. 


Line 10 prints MY. 


Line 20 makes the computer do subroutine 1000, which prints TOE, prints IS, does 
subroutine 2000 (STUCK and IN), and prints YOUR. 


Line 30 prints NOSE. 
Line 40 ends. 


So altogether, the computer prints: 
MY 


In that example, subroutine 2000 is nested in subroutine 1000. 
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SUBSCHIPTS 


SIMPLE SUBSCRIPTS 
Instead of being a single string, X$ can be a whole /ist of strings, like this: 


"HATE" 
"LOVE" 
"KILL" 

X $= "KISS" 
"WAR" 
"PEACE" 
"WHY" 


Here's how to make X$ be that list of strings. .. . 
Begin your program by saying: 


10 DIM X$(7) 


That says X$ will be a list of 7 strings. DIM means dimension; the line says the 
dimension of X$is 7. 
Next, tell the computer what strings are in X$. Type these lines: 


20 X$(1)="HATE" 
30 X$(2)=""LOVE" 
40 X$(3)="KILL" 
50 X$(4)=""KISS" 
-60 X$(5)=""WAR" 
70 X$(6)="PEACE" 
80 X$(7)=""WHY" 


Line 20 says X$'s first string is HATE. Line 30 says X$'s second string is LOVE. The 
remaining, lines define the other strings in X$. 
If you'd like the computer to print all those strings, type this: 


90 FOR I = 1 TO 7: PRINT X$(I): NEXT 
That means: print all the strings in X$. The computer will print: 


HATE 
LOVE 
KILL 
KISS 
WAR 
PEACE 
WHY 


In that program, line 20 talks about. X$(1). Instead of saying X$(1), math books 
say: 


Xi 


The "1" is called a subscript. Similarly, in line 30, which says X$(2)="LOVE", the 
number 2 is a subscript. Some programmers pronounce line 30 like this: "X string, 
subscripted by 2, is LOVE". To be briefer, most programmers say this instead: "X 
string sub 2 is LOVE". Some programmers simply say: "X string 2 is LOVE". 

In that program, X$ is called an array (or matrix). Definition: an array (or 
matrix) is a variable that has subscripts. 
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SUBSCRIPTED DATA 
That program said X$(1) is HATE, and X$(2) is LOVE, and soon. This program does 
the same thing, more briefly: 


10 DIM X$(7) 

20 DATA HATE,LOVE,KILL,KISS ,WAR,PEACE ,WHY 
30 FOR I=1 TO 7: READ X$(I): NEXT 

40 FOR I=1 TO 7: PRINT X$(1I): NEXT 


Line 10 says X$ will be a list of 7 strings. Line 20 contains a list of 7 strings. Line 30 
makes the computer READ those strings and call them X$. Line 40 makes the 
computer print them. 

In that program, the first three lines say: 


DIM 
DATA 
FOR I 


Most practical programs begin with those three lines. 
Let's lengthen the program, so that the computer prints all this: 


HATE 
LOVE 
KILL 
KISS 
WAR 
PEACE 
WHY 


WHY HATE 
WHY LOVE 
WHY KILL 
WHY KISS 
WHY WAR 
WHY PEACE 
WHY WHY 


That consists of two verses. The second verse resembles the first verse, except that 
each line of the second verse begins with WHY. 
To make the computer print all that, just add these lines to the program: 


50 PRINT 
60 FOR I = 1 TO 7: PRINT "WHY ";X$(I): NEXT 


Line 50 leaves a blank line between the first verse and the second verse. Line 60 
prints the second verse. Line 60 resembles line 40 (which printed the first verse), 
except that line 60 prints "WHY " before each X$(I). 
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Let's add a third verse, which prints the words in reverse order: 


WHY 

PEACE 

WAR 
KISS 

KILL 

LOVE 

HATE 


Before printing that third verse, print a blank line: 
70 PRINT 


Then print the verse itself. To print the verse, you must print X$(7) , then print 
X$(6), then print X$(5), etc. To do that, you could say: 


80 PRINT X$(7) 
90 PRINT X$(6) 
100 PRINT XS$(5) 
etc. 


But this way is shorter: 
80° FOR I = 7 TO 1°STEP -1: PRINT XSCI) : NEXT 


NUMERIC ARRAYS 
Let's make Y be this list of six numbers: 100, 26, 94, 201, 8.3, and -7. 
To begin, tell the computer that Y will consist of six numbers: 


10 DIM Y (6) 
Next, tell the computer what the six numbers are: 
20 DATA 100,26,94,201,8.3,-/ 
Make the computer READ all that data: 
30 FOR I = 1 TO 6: READ YC(I): NEXT 
To make the computer PRINT all that data, type this: 
40 FOR I = 1 to 6: PRINT YC(I): NEXT 


Let's make the computer add those 6 numbers together and print the sum. Here's 
how: 


50 PRINT Y(1)+Y(2)+Y (3) +¥ (4) +¥ (5) +¥ (6) 
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STRANGE EXAMPLE 
Getting tired of X and Y? Then pick another letter! For example, you can play with 
Z: . 


Silly, useless program What the program means 

10 DIM Z(5) Z will be a list of 5 numbers. 

20 FOR I =2 TO 5 

30 Z (I) =1*100 Z(2)=200. Z(3)=300. Z(4)=400. Z(5)=500. 
40 NEXT 

50 2(1)=Z(2)-3 Z(1) is 200-3; so Z(1) is 197. 

60 Z(3)=Z(1)-2 Z(3) changes to 197-2, which is 195. 


70 FORT SFOS Ss PRIN eC) 3 NEX], Print Z(1), Z(2), Z(3), Z(4), and Z(5). 
Line 70 prints: | 


LOY, 
200 
195 
400 
500 


PROBLEMS AND SOLUTIONS 
Suppose you want to analyze 50 numbers. Begin your program by saying: 
10 DIM X(50) 


Then type the 50 numbers, as data, like this: 


20 DATA etc. 
30 DATA etc. 
40 DATA etc. 


Tell the computer to READ the data: 
100 FOR I=1 TO 50: READ X(I): NEXT 


After line 100, you have many choices, depending on which problem you want to » 


SOlVe pee «8 
Problem: print all the values of X. Solution: 


110 FOR I = 1 TO 50: PRINT X(I): NEXT 
Problem: print all the values of X, in reverse order. Solution: 
110 FOR I = 50 TO 1 STEP —1: PRINT X(I): NEXT 


Problem: print the sum of all the values of X. In other words, print 
X(1)+X(2)+X(3)+ . . . +X(50). Solution: start the sum at 0— 


110 s=0 

and then increase the sum, by adding each X(I) to it: 
120 FOR I = 1 TO 50: S=S+X(I): NEXT 

Finally, print the sum: 

130 PRINT ''THE SUM OF ALL THE NUMBERS IS";S 


Problem: find the average value of X. In other words, find the average of the 50 
numbers. Solution: begin by finding the sum— 


110 s=0 
120 FOR I = 1 TO 50: S=S+X(I): NEXT 


and then divide the sum by 50: 
130 PRINT "THE AVERAGE IS";S/50 
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Problem: find out whether any of the values of X is 79.4. In other words, find out 
whether 79.4 1s a number in the list. Solution: if X(1) is 79..4,* print "YES" — 


110FOR: 1i= 1 TO 50 
120 IF X(1)=79.4 THEN PRINT "YES, 79.4 IS IN THE LIST": END 
130 NEXT 


otherwise, print "NO": | 
140 PRINT 'NO, 79.4 IS NOT IN THE CLSTe: 
Problem: in the list of numbers, count how often the number 79.4 appears. 


Solution: start the counter at zero— 
110 c=0 
and increase the counter each time you see the number 79.4: 


AeDUrORSL S210. 50 
130 IF X(1)=79.4 THEN C=C+1 
140 NEXT 


Finally, print the counter: 
150 PRINT "THE NUMBER 79.4 APPEARS"; C;''TIMES" 


Problem: print all the values of X that are negative. In other words, print all the 
numbers that have minus signs. Solution: begin by announcing your purpose— 


110 PRINT "HERE ARE THE VALUES THAT ARE NEGATIVE:" 


and then print the values that are negative; in other words, print each C(I) that's 
less than 0 | 


120 FOR I = 1 TO 50 
130 IF X(1)<O THEN PRINT X(I) 
140 NEXT 


Problem: print all the values of X that are "above average". Solution: find the 
average, and call it A, like this— 


110 s=0 
120 FOR I = 1 TO 50: S=S+XCI): NEXT 
130 A=S/50 


then announce your purpose: 
440 PRINT "THE FOLLOWING VALUES ARE ABOVE AVERAGE:" 


Finally, print the values that are above average; in other words, print each X(I) 
that's greater than A: 


150 FOR I = 1 TO 50 
160 IF X(1)>A THEN PRINT X(I) 
170 NEXT 
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Problem: find the biggest value of X. In other words, find which of the 50 
numbers is the biggest. Solution: let B stand for the biggest number. Begin by 
tentatively setting B equal to the first number— 


110 B=X (1) 
but if another number is bigger than that B, change B: 


120 FOR I = 2 TO 50 
130 IF X(1)>B THEN B=X(TI) 
140 NEXT 


Afterwards, print B: 
150 PRINT "THE BIGGEST NUMBER IN THE LIST IS";B 


Problem: find the smallest value of X. In other words, find which of the 50 
numbers is the smallest. Solution: let S stand for the smallest number. Begin by 
tentatively setting S equal to the first number— 


110 S=x(1) 
but if another number is smaller than S, change 8: 


12OVFORNEM Sa eet Oeou 
130 IF XC(1I)<S THEN S=X (I) 
140 NEXT 


Afterwards, print S: 
150 PRINT "THE SMALLEST NUMBER IN THE LIST IS";S 


Problem: find out whether the values of X are in strictly increasing order. In 


other words, find out whether the following statement is true: X(1) is a smaller 
number than X(2), which is a smaller number than X(3), which is a smaller number 
than X(4), ete. Solution: if X(I) is not smaller than X(I+1), print "NO"— 


110 FOR I = 1 TO 49 

120 IF X(I)>=X(I+1) THEN PRINT "NO, THE LIST IS NOT IN STRICTLY INCREASING OR 
DER": END . 

130 NEXT 


otherwise, print "YES": 
140 PRINT "YES, THE LIST IS IN STRICTLY INCREASING ORDER" 


Test yourself: look at those problems again, and see whether you can figure out 
the solutions without peeking at the answers. 


MULTIPLE ARRAYS 
Suppose your program involves three lists. Suppose the first list is called A$ and 
consists of 18 strings; the second list is called B and consists of 57 numbers; and the 
third list is called C$ and consists of just 3 strings. To say all that, begin your 
program with this statement: 


10 DIM A$(18) ,B(57) ,C$(3) 
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DOUBLE SUBSCRIPTS 
You can make X be a table of strings, like this: 


"DO G" NCAT" "MOUSE" ) 
Ea eek "CATSUP" "MOUSETARD" 


Here's how to make X$ be that table. ... 
Begin by saying: 


10 DIM X$(2,3) 


That says X$ will be a table having 2 rows and 3 columns. 
Then tell the computer what strings are in X$. Type these lines: 


20 X$(1,1)="D0G" 

30 X$(1,2)="CAT" 

40 X$(1,3)="MOUSE" 

50 X$(2,1)=""HOTDOG" 

60 X$(2,2)="'CATSUP" 

70 X$(2,3)=""MOUSETARD" 


Line 20 says: the string in X$'s first row and first column is DOG. Line 30 says the 
string in X$'s first row and second column is CAT. The remaining lines define the 
other strings in X$. 

If you'd like the computer to print all those strings, type this: 


80 FOR 1 = 1 TO 2: FOR J = 1° TO 3: PRINT X$(1,J2,: NEXT: PRINT: NEXT 
That means: print all the strings in X$. The computer will print: 


DOG CAT MOUSE 
HOTDOG CATSUP MOUSETARD 


In that program, X$ is called a table or two-dimensional array or doubly 
subscripted array. 


/ MULTIPLICATION TABLE 
This program prints a multiplication table: 


10 DIM X(10,4) 
20 FOR I = 1 TO 10: FOR J 4x70 45. XCD J =LAds NEXT S.NEXT 
30 FOR I.=1 TO 10: FOR J 1 TO 4: PRINT X(I,J),: NEXT: PRINT: NEXT 


Line 10 says X will be a table having 10 rows and 4 columns. The middle of line 20 
says X(I,J)=I*J; that means the number in row I and column J is I1*J; for example, 
the number in row 3 and column 4is 12. The beginning of line 20 says "FOR I =1TO 
10: FOR J = 1TO 4", so that X(1,J)=I1*J for every I and J, so that every entry in the 
table is defined by multiplication. Line 30 prints the whole table: 


1 2 3 4 
2 4 6 8 
3 6 9 ie 
& 8 12 16 
5 10 1D 20 
6 ve 18 24 
% 14 21 28 
8 16 24 BY 
9 18 (ae 36 
10 20 30 40 


Instead of multiplication, you can have addition, subtraction, or division: just 
change line 20. 

‘Most programmers follow this tradition: the row's number is called I, and the 
column's number is called J. Line 20 obeys that tradition. Notice I comes before J in 
the alphabet; I comes before J in X(I1,J); and "FOR I" comes before "FOR J". If you 
follow the I-before-J tradition, you'll make fewer errors. 
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SUMMING A TABLE 
Suppose you want to analyze this table: 


32.7 19.4 31.6 85.1 


sie 402 -61 0 
9106 me 0 mort bea 
36.9 04 1 11 

777 666 59. 44 2 
1.99 290 3.99 4.99 
90 40 30 20 
12 21 12 21 
0 1000 2 900 


Since the table has 9 rows and 4 columns, begin your program by saying: 
10 DIM X(9,4) 
Each row of the table becomes a row of the DATA: 


11 DATANSONt) 119.4, 31.6)0gaat 
42 DATAI=Coe02, —615 0 

13 DATA 5106, =.2,'0, -121 

14 DATA 36.9, .04,°1, 11 

15 DATA 777, 666, 55.44, 2 

16 DATA 1.99, 2.99, 3.99, 4.99 
17 DATA 50, 40, 30, 20 

18 DATA 12, 21, 12, 21 

19 DATA 0, 1000, 2, 500 


Make the computer READ the data: 

20 FOR I = 1 TO 9: FOR J = 1 TO 4: READ XCI,J): NEXT: NEXT 

To make the computer print the table, say this: 

30 FOR I = 1 TO 9: FOR J = 1 TO 4: PRINT X(I,J),: NEXT: PRINT: NEXT 


Problem: find the sum of all the numbers in the table. Solution: start the sum at 
Qo— 


100 s=0 

and then increase the sum, by adding each X(I,J) to it: 

110 FOR I = 1 TO 9: FOR J = 1 TO 4: S=S+X(I,J): NEXT: NEXT 
Finally, print the sum: 

120 PRINT "THE SUM OF ALL THE NUMBERS IS";S 

The computer will print: 

THE SUM OF ALL THE NUMBERS IS 8877.84 
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Problem: find the sum of each row. In other words, make the computer print the 
sum of the numbers in the first row, then the sum of the numbers in the second row, 
then the sum of the numbers in the third row, ete. Solution: the general idea is— 


100 FOR I = 1 TO 9 
110 print the sum of row 1 
120 NEXT 


Here are the details: 


100 FOR I 
110 Si 

nae FOR J = 1 TO 4: S=S+X(1,J): NEXT 
112 PRINT ''THE SUM OF ROW';I;"IS";S 

120 NEXT 


The computer will print: 


THE SUM OF ROW 1 IS 168.8 
THE SUM OF ROW 2 IS 333 
THE SUM OF ROW 3 IS 5104.7 
etc. 


Problem: find the sum of each column. In other words, make the computer print 
the sum of the numbers in the first column, then the sum of the numbers in the 
second column, then the sum of the numbers in the third column, etc. Solution: the 
general idea is— 


100 FOR J = 1 TO 4 
110 print the sum of cokwm J 
120 NEXT 


Here are the details: 
100 FOR J = 1:TO 4 


0 
R 


110 S=0 j 

ci FOR I = 1 TO 9: S=S+X(I,J): NEXT 
te PRINT "THE SUM OF COLUMN';J;"IS";S 
120 NEXT 


The computer will print: 


THE SUM OF COLUMN 1 IS 6008.59 
THE SUM OF COLUMN 2 IS 2151.23 
THE SUM OF COLUMN 3 IS 75.03 
THE SUM OF COLUMN 4 IS 642.99 


In all the other examples, "FOR I" came before "FOR J"; but in this unusual 
example, "FOR I" comes after "FOR J". 
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FANCY CALCULATIONS 


EXPONENTS 
The computer understands exponents: 


PRINT 443 
That line makes the computer use the number 4, three times. The computer will 
multiply together those three 4's, like this: 4 times 4 times 4. Since "4 times 4 times 
4" is 64, the computer will print: 

64 

The symbols +, -, *, /, and “are all called operations. 

To solve a problem, the computer uses the three-step process taught in algebra 
and the "new math". For example, suppose you ask the computer to figure out 
70- 342+8/2*3. The computer will not begin by subtracting 3 from 70; instead, it will 
use the three-step process: 


The problems wo. a.) 5. Vahey near att g Rp ee aia 70-34248/ 2x3 
if Se 
Step. 1: gelridiof *.: Now the problem ts) oocytes wees 70- 9 +8/2%3 
| : 
Step 2: get rid of * and /. Now the problemis....... (0~ 974-12 
Step a:get rid of + and'-.The answer isiicria woke + ae 19 


In each step, it looks from left to right. For example, in step 2, it sees / and gets rid 
of it before it sees *. 

Although exponents are fun, the computer handles them slowly. For example, the 
computer handles 32 more slowly than it handles 3*3. So for speedy calculations, 
say 3*3 instead of 342. 
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CONTRASTS 
The computer's notation resembles that of arithmetic and algebra, but beware of 
these contrasts. ... 
For multiplication, the computer requires an asterisk: 


Traditional notation Computer notation 
2n OxN . 


5(n+m) 5* (N+M) 
nm NxM 


To write a fraction, you must put the numerator in parentheses, if it contains 
addition or subtraction: 


Traditional notation Computer notation 


atb (A+B) /C 
Cc 
vm (J-20) /6 


To write a fraction, put the denominator in parentheses, if it contains addition, 
subtraction, multiplication, or division: 


Traditional notation Computer notation 


5 
ewe | 5/(3+X) 
8) 
a 5*A43/ (4B) 


Put the exponent in parentheses, if it contains an operation: 


Traditional notation Computer notation 


he XA (N+2) 

“on XA (3#N) 
52/3 54 (2/3) 
an 

2 24 (344) 


A mixed number is a number that contains a fraction. For example, 93is a mixed 
number. When you write a mixed number, put a plus sign before its fraction: 


Traditional notation Computer notation 
93 94+1/2 


If you're using the mixed number in a further calculation, put the mixed number 
in parentheses: 


Traditional notation Computer notation 
1-24 7- (241/4) 
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ROOTS 
What positive number, when multiplied by itself, gives 9? The answer is 3, because 3 
times itself is 9. Because 3 times itself is 9, 3 is called the square root of 9. 
To make the computer deduce the square root of 9, type this: 


PRINT SQR(9) 


The computer will print 3. 

When you tell the computer to PRINT SQR(9), make sure you put the parentheses 
around the 9. - . 

The symbol SQR is called a function. The number in parentheses (9) is called the 
function's /nput (or argument or parameter). The answer, which is 3, is called the 
function's output (or value). 

SQR(9) gives the same answer as 9%.5. Most computers handle SQR(9) more 
quickly than 9%. 5. 

Cube roots. What number, when multiplied by itself and then multiplied by itself 
again, gives 64? The answer is 4, because 4 times 4 times 4is 64. The answer (4) is 
called the cube root of 64. Here's how to make the computer find the cube root of 64: 


PRINT 644(1/3) 


The computer will print 4. 


ABSOLUTE VALUE 
To find the absolute value of a negative number, just omit the number's minus sign. 


For example, the absolute value of -7 is 7. 
The absolute value of a positive number is the number itself. For example, the 


absolute value of 7 is 7. 
To make the computer find the absolute value of -7, type this: 


PRINT ABS (-7) 
The computer will print: 


r¢ 


Like SQR, ABS is a function: you must put parentheses after the ABS. 
This program computes the distance between two numbers: 


10 PRINT "I WILL FIND THE DISTANCE BETWEEN TWO NUMBERS." 
20 INPUT "WHAT'S THE FIRST NUMBER" ;X 
30 INPUT "WHAT'S THE SECOND NUMBER"; Y 
40 PRINT ''THE DISTANCE BETWEEN THOSE NUMBERS IS";ABS(X-Y) 


For example, if X is 4, and Y is 7, then the distance between those two numbers is 
ABS(4-7), which is ABS(-3), which is 3. If you reverse those two numbers, so that 
X is 7 and Y is 4, the distance between them is ABS(7-4), which is ABS(3), which is 
still 3. 
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HOW TO ROUND 
If you round 17.9 to an integer, what do you get? 
If you round 17.9 to the nearest integer, you get 18. If you round 17.9 down to 
an integer, you get 17. If you round 17.9 up to an integer, you get 18. 
To make the computer round 17.9 down to an integer, type this: 


PRINT INT(17.9) 
The computer will print: 
Ww. 


Notice that INT rounds down. INT(17. 9) tells the computer to round 17.9 down to 
an integer; the computer gets 17. | 

Like SQR and ABS, INT is a function: you must put parentheses after the INT. 

If you give this command— : 


PRINT INT(-5.2) 


what number will the computer print? Will it print -5? Or will it print -6 instead? 
Answer: the computer will print -6, because if today's temperature is -5.2 degrees, 
and you round the temperature down, the temperature becomes colder: -6 degrees. 
INT rounds down. INT(-5.2) is -6. 

INT (54) is simply 54. 

To explore further the mysteries of rounding, run this program: 


10 INPUT "WHAT'S YOUR FAVORITE NUMBER"; X 
20 PRINT INT(X) 

30 PRINT -INT(-X) 

40 PRINT INT(X+.5) 


In that program, line 10 asks you to type a number X. Line 20 prints your number 
rounded down; line 30 prints your number rounded up; and line 40 prints your 
number rounded to the nearest integer. For example, if you input 17.9, line 20 
makes the computer print 17.9 rounded down (which is 17), line 30 makes the 
computer print 17.9 rounded up (which is 18), and line 40 makes the computer print 
17.9 rounded to the nearest integer (which is 18). 

Here's the rule: if X is a number, INT(X) rounds X down; -INT(-X) rounds X 
up; INT(X+.5) rounds X to the nearest integer. 

Rounding down and rounding up are useful in the supermarket. ... 

Suppose some items are marked "30¢ each", and you have only two dollars. How 
many can you buy? Two dollars divided by 30¢ is 6.66667; rounding down to an 
integer, you can buy 6. 

Suppose some items are marked "3 for a dollar", and you want to buy just one of 
them. How much will the supermarket charge you? One dollar divided by 3 is 
33.3333¢; rounding up to an integer, you will be charged 34¢. 

By using INT, you can do fancier kinds of rounding: 


to round X to the nearest thousand, ask for INT (X/1000+. 5)*1000 
to round X to the nearest thousandth, ask for INT (X/. 001+. 5)*. 001 


This program rounds a number, so that it will have just a few digits after the 
decimal point: 


10 INPUT "WHAT'S YOUR FAVORITE NUMBER"; X 

20 INPUT "'HOW MANY DIGITS WOULD YOU LIKE AFTER ITS DECIMAL POINT";D 
30 B=10“-D 

40 PRINT ''YOUR NUMBER ROUNDED IS";INT(X/B+.5)*B 


Here's a sample run: 


WHAT'S YOUR FAVORITE NUMBER? 4.28631 
HOW MANY DIGITS WOULD YOU LIKE AFTER ITS DECIMAL POINT? 2 
YOUR NUMBER ROUNDED IS 4.29 
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STRING ANALYSIS 
Let's analyze the word "SMART". 
Since "SMART" has 5 characters in it, the Jength of "SMART" is 5. If you say— 


PRINT LENC"SMART"') 
the computer will print the LENgth of "SMART"; it will print: 

5 

_The left two characters of "SMART" are "SM". If you say— 
PRINT LEFTSC''SMART", 2) 
the computer will print: 
SM 
Try this program: 


10 AS="SMART" 
20 PRINT LEFTS(AS,2) 


Line 10 says A$ is "SMART". Line 20 says to print the left 2 characters of A$, which 
are "SM". The computer will print: 


SM 
If A$ is "SMART", here are the consequences. ... 


LEN (A$) is the LENgth of A$. It is 5. 

LEFT $(A$, 2) is the LEFT 2 characters of A$. It is "SM". 

RIGHT $(A$, 2) is the RIGHT 2 characters of A$. It is "RT". 

MID$(A$, 2) is the MIDdle of A$, beginning at the 2nd character. It is "MART". 
MID$(A$, 2,3) begins at the 2nd character and includes 3 characters. It's "MAR". 


Changing the middle. You can change the middle of a string, like this: 


10 A$S=""BUNKERS" 
20 MID$(AS,2)="0WL" 
30 PRINT AS 


Line 10 says A$ is "BUNKERS". Line 20 changes the middle of A$ to "OWL"; the 
change begins at the 2nd character of A$. Line 30 prints: 


BOWLERS 
Here's a variation: 


10 A$="BUNKERS" 
20 MIDS(A$,2,1)="0WL" 
30 PRINT A$ 


Line 10 says A$ is "BUNKERS". Line 20 changes the middle of A$; the change begins 
at the 2nd character of A$; the ",1" makes the computer use only 1 letter from 
"OWL". Line 30 prints: 


BONKERS 
Another variation: 


10 AS=""BUNKERS" 
20 MIDS(A$,2)="AD AGENCY" 
30 PRINT AS 


Line 10 says A$ is "BUNKERS". Line 20 says to change the middle of A$, beginning 
at the 2nd character of A$. But "AD AGENCY" is too long to become part of 
"BUNKERS". The computer uses as much of "AD AGENCY" as will fit in "BUNKERS"; 
the computer will print: 


BAD AGE 
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Adding strings. You can add strings together, to form a longer string: 


10 AS="FAT"+"HER" 
20 PRINT A$ 


Line 10 says A$ is "FATHER". Line 20 makes the computer print: 
FATHER 


Searching in a string. You can make the computer search in a string, to find 
another string. To make the computer search IN the STRing "NEEDED", to find 
"ED", say: 


PRINT INSTR C"'NEEDED","ED"') 
Since "ED" begins at the third character of "NEEDED", the computer will print: 
3 
If you say— 
PRINT INSTR (C"'NEEDED","EY"') 


the computer will search in the string "NEEDED" for "EY". Since "EY" is not in 
"NEEDED", the computer will print: 


@) 
If you say— 
PRINT INSTR(4,"'NEEDED","ED'') 


the computer will hunt in the string "NEEDED" for "ED"; but the hunt will begin at 
the 4th character of "NEEDED". The computer finds the "ED" that begins at the 5th 
character of "NEEDED"; the computer will print: 


5 


Clock. The typical computer has a built-in clock. To set the clock to 7 seconds 
after 1:45PM, type this: 


TIME$=""13:45:07" 
To set the date to January 24, 1987, type this: 
DATES="'01-24-1987"" 
Afterwards, whenever you want to find out the current time and date, type this: 


PRINT TIMES 
PRINT DATES 


If you say-— 
PRINT TIMER 


the computer will tell you how many seconds have elapsed since midnight. 

When you turn the computer off, it forgets the time and date. When you turn the 
computer on again, tell it the new time and date. 

String-number conversion. This program converts a string to a number: 


10° AS="- 7226" 
20 B=VAL CAS) 
30 PRINT B+1 


Line 10 says A$ is the string "72.6". Line 20 says B is the numeric VALue of A$; soB 
is the number 72.6. Line 30 prints: 


$560 


VAL converts a string to a number. The opposite of VAL is STR$: it converts a 
number to a string. For example, STR$(-7.2) is the string "-7.2". 

STR$(81.4) is the string " 81.4". Notice that in the string " 81.4", the 8 comes 
after a space (instead of coming after a minus sign). 
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ASCII. Each character has a code number. For example, the code number for "A" 
is 65; the code number for "B" is 66; the code number for "C" is 67; etc. 

Those code numbers form the American Standard Code for Information 
Interchange, which is abbreviated ASC/I, which is pronounced "ass key". 
Programmers say, "the ASCII code number for A is 65". 

If you say— 


PRINT ASC ("A") | | 
the computer will print the ASCII code number for "A". It will print: 
65 


Similarly, if you say PRINT ASC("B"), the computer will print 66. 
If you say— 


PRINT CHR$(65) 
the computer will print the CHaRacter whose code number is 65. It will print: 
A 


The code number for a capital "A" is 65, capital "B" is 66, capital "C" is 67, etc. 
The code number for a small "a" is 97, small "b" is 98, small "c" is 99, ete. The code 
number for the digit "0" is 48, the digit "1" is 49, the digit "2" is 50, etc. 

Here's the complete list of code numbers, from 33 to 126: 


Character 2:00" eS) ARG) oe Oey Se ee a 
Code #: 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49...57 58 59 60 61 62 


Character: 2hiaeAy (Be: uz cle N! fo 8 ey eet cane ke nes cee 
Code #: 63 64 65 66...90 91 92 93 94 95 96 97 98...122 123 124 125 126 


32 is the code number for a blank space. 127 is the code number for DELETE. 
Notice that the code number for a quotation mark is 34. This makes the computer 
print a quotation mark: 


PRINT CHRS$(34) 
Suppose you want the computer to print: 
SCHOLARS THINK ''HAMLET'' IS A GREAT PLAY 


To make the computer print the quotation marks around "HAMLET", use CHR$(34), 
like this: 


PRINT "SCHOLARS THINK ';CHR$(34) ;"'HAMLET";CHRS(34);"' IS A GREAT PLAY" 


Control codes. On the typical computer's keyboard, you'll see a key marked 
CONTROL (or CTRL). That CONTROL key is next to the left SHIFT key. While you 
hold down the CONTROL key, you can tap the A key; that's called a controlled A. 
The code number for a controlled A is 1. Similarly, the code number for a controlled 
B is 2; a controlled C is 3; etc. 

Holding down the CONTROL key subtracts 64 from the code number of the other 
key. For example, the A key is normally 65, so a controlled A is 65-64, which is 1. 
The B Key is normally 66, so a controlled B is 66-64, which is 2. 

You've seen that a controlled A has code 1, and a controlled B has code 2. 
Controlled @ has code 0. In fact, by using the CONTROL key, you can generate all 
the characters that have codes from 0 to 31. 
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Graphics codes. The code numbers from 128 up to 255 are used for graphics. 
Explore. To explore your computer's ability to print both text and graphics, run 
this program: 


10 FOR I = 33 TO 255 
20 PRINT I;CHRS(I);" nas 
30 NEXT 


The computer will print each number and its associated character; it will print: 
BERS Ah S518) 36.0 py ete 


When the computer finally reaches 128, it will start printing graphics characters. 
In that program, you can try starting I at a number lower than 33. For example, 
you can try starting I at 5. But be careful: some of those low numbers will make your 
computer act very strangely! 
On the Apple, do not say PRINT CHR$(4). If you make the mistake of saying 
CHR$(4), the computer might turn on the disk drive and start wrecking your disk! 
If your computer is typical, you can make it beep by saying: 


PRINT CHRS(7) 


Printer codes. If you say— 
PRINT ''LOVE"’ 
the computer will print LOVE on your screen. If you say— 
LPRINT "LOVE" 


the typical computer will print LOVE on paper (instead of your screen), by using a 
printer. 

The most popular printers are manufactured by Epson. You can make an Epson 
printer do weird things on paper, by giving a special CHR$ command. 

An Epson normally prints 10 characters per inch. You can change that: 


Purpose Command 

print 17 characters per inch, so characters are condensed LPRINT CHRS(15); 
cancel the condensed printing LPRINT CHRS(18); 
print 12 characters per inch, so characters are elite LPRINT CHR$(27)''M"; 
cancel the elite printing LPRINT CHR$(27)"P"; 
print 5 characters per inch, so characters are enlarged LPRINT CHRS$(14); 
cancel the enlarged printing | LPRINT CHRS$(20); 
print with proportional spacing, so "m" is wider than "i" LPRINT CHR$(27)'"'p1"; | 
cancel the proportional spacing — LPRINT CHR$(27)''pO"; 


When an Epson finishes printing a line of characters, it normally jerks the paper 
up a sixth of an inch, so that the next line of characters is a sixth of an inch below 
the first line, and so that the Epson prints six lines per inch. Computerists say, 
"the Epson normally feeds a sixth of an inch". You can change that amount: 


Purpose Command 

feed 1/8 of an inch ; LPRINT CHR$(27)''0"; 

feed about 1/10 of an inch (7/72 inch) LPRINT CHRS(27)''1"; 

feed n/72 of an inch LPRINT CHR$(27)''A''CHRS (n) ; 
feed n/216 of an inch LPRINT CHR$(27)'"'3''CHRS(n) ; 


go back to normal: feed 1/6 of an inch —LPRINT GHRS C27) 9.243 
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Here are some other fancy commands you can give: 


Purpose 


beep for about a tenth of a second 


print italics 
cancel the italics 


print subscripts (tiny char. below line) 


print superscripts (tiny char. above) 


cancel subscripts and superscripts 


horizontal fill, so that "~~" becomes "—" 


cancel the horizontal fill 
vertical fill, so that ":" becomes nit 
cancel the vertical fill 


move to the top of the next page 


move to the right, to the next tab stop 


move left, to the previous character 
move left, all the way to the margin 


make left margin be n characters wide 


make right margin be at position n 


eancel all previous CHR$ commands 


Command 


LPRINT 


LPRINT 
LPRINT 


LPRINT 
LPRINT 
LPRINT 


LPRINT 
LPRINT 
LPRINT 
LPRINT 


LPRINT 
LPRINT 
LPRINT 
LPRINT 


LPRINT 
LPRINT 


LPRINT 


CHRS(7) ; 


CHRS$(27)"'4"; 
CHR$(27)"'5"; 


CHRS (270) S12 
CHRS$ (27) "SO"; 
CHR$(27)'"'T"; 


CHRD \ 02 cue 
CHR$(27)"'F"'; 
CHR$(27)"'G"; 
CHRS(27)"H"; 


CHR$(12); 
CHRS$ (9); 
CHRS (8); 
CHRS(27)"<"'; 


CHRS(27)"'L"CHRS (nd); 
CHRS(27)"'Q"'CHRS(n); 


CHR$(27)"'a"; 


Repeating characters. Suppose you love the letter B (because it stands for Big, 


Bold, and Beautiful) and want to print "BBBBBBBBBBBBBBBBBBBB". Here's a 


short-cut: 
PRINT STRING$(20,"B"') 


That tells the computer to print a string of 20 B's. 
Here's a different way to accomplish the same goal: 


PRINT STRINGS (20,66) 


That tells the computer to print, 20 times, the character whose ASCII code number is 


66. 


STRING$ can make the computer repeat a single character, but not a whole word. 


So although STRING$(20,"B") 


makes the computer repeat the character "B", 


STRING$(20,"BLOW") will not make the computer repeat the word "BLOW"; instead, 
the computer will repeat just the first character of "BLOW" (which is "B"). 


a 


P 
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ADVANCED MATH 
The computer can handle trigonometry, signs, advanced exponents, and logarithms. 
Here's how... . 


Trigonometry. The study of triangles is called trigonometry—and the computer 
ean do it for you! 


For example, look at this triangle: 


In that triangle, the left angle is 30°, the lower-right angle is 90°, and the longest 
side (the hypotenuse) is 1 inch long. 

The side opposite the 30° angle is called the sine of 30°; the remaining side is 
called the cosine of 30°: 


Sine of jo° 


Cosine of 30° 


How long is the sine of 30°? How long is the cosine of 30°? 

Since the longest side (the hypotenuse) is 1 inch long, and since the sine and the 
cosine are shorter sides, the sine and the cosine must each be shorter than 1 inch. 
So the lengths of the sine and cosine are each less than 1. But which decimals are 
they? 

To find out, you can use a ruler. You'll discover that the sine is half an inch 
long, and the cosine is nearly seven-eighths of an inch long. But a faster and more 
accurate way to measure the sine and cosine is to let the computer do it! Yes, the 
computer can calculate triangles in its mind! 

This program makes the computer measure the sine and cosine of 30°: 


10 D=ATN(1)/45 
20 PRINT SIN(30*D) 
30 PRINT COS (30*D) 


Line 10 is a special formula that defines D to mean "degrees". Line 20 prints the sine 
of 30 degrees; the computer will print: 


ao 


Line 30 prints the cosine of 30 degrees; the computer will print a decimal that's 
slightly less than .87. 

The computer can measure the sine and cosine of any size angle. Try it! For 
example, to make the computer print the sine and cosine of a 33° angle, say: 


10 D=ATN(1)/45 
20 PRINT SIN(33*D) 
30 PRINT COS(33*D) 


If you choose an angle of -33° instead of 33°, the triangle will dip down instead of 
rising up, and so the sine will be a negative number instead of positive. 
In lines 20 and 30, the "*D" is important: it tells the computer that you want the 
. sine of 33 degrees. If you accidentally omit the "4D" the computer will print the sine 
of 33 radians instead. (A radian is larger than a degree. A radian is about 57.3 
degrees. More precisely, a radian is 180/17 degrees. ) 
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The sine divided by the cosine is called the tangent. For example, to find the 
tangent of 33°, divide the sine of 33° by the cosine of 33°. 

To make the computer print the tangent of 33°, you could tell the computer to 
PRINT SIN(33*D) /COS(33*D). But to find the tangent more quickly and easily, just 
say PRINT TAN(33*D), by adding this line to your program: 


40 PRINT TAN(33x*D) 
The opposite of the tangent is called the arctangent: 


the tangent of 30° is about . 58 
the arctangent of .58 is about 30° 


Similarly, the opposite of the sine is called the arcsine, and the opposite of the 
cosine is called the arccosine. 

This program prints the arctangent of .58, the arcsine of .5, and the arccosine of 
. 87: 


10 D=ATN(1)/45 

20 PRINT. ATN(.58)/D 

30 X=.5: PRINT ATN(X/SQR(1-X*X))/D 

40 X=.87: PRINT 90-ATNC(X/SQR(1-X*X)) /D 


Line 10 is the special formula that defines "D" to be "degrees". Line 20 prints the 
arctangent of .58, in degrees. (If you omit the "/D", the computer will print the 
answer in radians instead of degrees.) Line 30 sets X equal to .5 and then prints its 
arcsine (by using a formula that combines ATN with SQR). Line 40 sets X equal to 
.87 and then prints its arccosine (by using a formula that combines 90 with ATN and 
SQR). The answer to each of the three problems is about 30 degrees. 


Sign. If a number is negative, its sign is -1. For example, the sign of -546 is -1. 


If a number is positive, its sign is +1. For example, the sign of 8231 is +1. 
The sign of 0 is 0. 


The computer's abbreviation for "sign" is "SGN". So if you say— 
PRINT SGN(-546) 


the computer will print the sign of -546; it will print -1. 
If you say— 


PRINT SGN(8231) 


the computer will print the sign of 8231; it will print 1. 
If you say— 


PRINT SGN(Q) 


the computer will print the sign of 0; it will print 0. 
SGN is the opposite of ABS. Let's see what both functions do to -7.2. ABS 
removes the minus sign, but leaves the digits: 


ABS (=(22) 1S tae, 
SGN removes the digits, but leaves the minus sign: 
SGN(-7. 2) is -1 


Sometimes the computer prints too much information: you wish the computer 
would print less, to save yourself the agony of having to read excess information 
that's irrelevant to your needs. Whenever the computer prints too much information 
about a numerical answer, use ABS, SGN, or INT. Use ABS to remove the minus 
sign; use SGN to remove all the digits (and replaces them by a 1); use INT to remove 
just the digits that come after the decimal point. 

ABS, SGN, and INT are all called stripping functions or strippers or diet 
functions or diet pills, because they strip away the excess fat and reveal just the 
fundamentals that interest you. 

The Latin word for sign is signum. Most mathematicians prefer -to talk in 
Latin—they say "signum" instead of "sign''—because the English word "sign" sounds 
too much like "sine". So mathematicians call SGN the "signum" function. 
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EXP. The letter "e" stands for a special number, which is approximately 
2.718281828459045. You can memorize that number easily, if you pair the digits: 


2.7 18 28 18 28 45 90 45 


That weird number is important in calculus, radioactivity, biological growth, and 
other areas of science. It's calculated by this formula: 


TON Th yd 1 1 rt 
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EXP(X) means pay For example, EXP(3) means e’, which is e*e*e, which is 
2. 718281828459045*2. 718281828459045*2. 718281828459045. EXP(4) means e', which is 
e*tete*e, EXP(3.1) means e?:1, which is more than e® but less than eu: 

Here's a practical application. Suppose you put $732 in a savings account, and 
the bank promises to give you 5% annual interest "compounded continuously". How 
much money will you have at the end of the year? The answer is 732*EXP(.05). 

Logarithms. Here are some powers of 2: 


aurPwnre|x< 
(oe) 


To compute the logarithm-base- 2 of a number, find the number in the right column; 
the answer is in the left column. For example, the logarithm-base-2 of 32is 5. The 
logarithm-base-2 of 15 is slightly less than 4. The logarithm-base- 2 of 64is 6. That 
fact is written: 


log, 64 is 6 
To make the computer find the logarithm-base-2 of 64, say: 
PRINT 1/LOG(2) xLOG (64) 


The computer will print 6. 
Here are some powers of 10: 


x 10" 
1 10 
2 100 
3 1000 
4 10000 
9) 100000 


The logarithm-base-10 of 100000 is 5. The logarithm-base-10 of 1001 is slightly more 
than 3. The logarithm-base-10 of 10000 is 4. That fact is written: 


log, , 10000 is 4 
To make the computer do that calculation, say: - 
PRINT 1/L0G(10) *L0G (10000) 


The computer will print 4. 
The logarithm-base-10 is called the common logarithm, and is the kind of 
logarithm used in high school and chemistry. So if you're studying chemistry and 


our textbook tells you to find the lo arithm of 10000, the textbook means the 
log arithm-base-10 of 10000, which is 1/LOG(10) *LOG(10000). 
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oo 


What happens if you forget the base, and say just LOG(10000) instead of 
1/LOG(10)*LOG(10000)? If you say just LOG(10000), the computer will find 
loge 10000 (where eis 2.718281828459045), which isn't what your chemistry textbook 
wants. 

LOG(10000), which means log, 10000, is called the natural logarithm of 10000. 


TYPES OF NUMBERS 
BASIC can handle three types of numbers: integers, real numbers, and 
double-precision numbers. 

Generally speaking, an integer is a number that has no decimal point; a real 
number has a decimal point but no more than 7 digits; a double-precision number has 
a decimal point and more than 7 digits. For example, -27is an integer, -27.5143lisa 
real number, and -27.514318 is a double-precision number. 

Even though -27is an integer, -27.0is not an integer: it's a real number instead. 
-27.000000 is a double-precision number. 

The highest. permissible integer is 32767; the lowest permissible integer is 
-32768. If you try to type an integer higher than 32767 or lower than -32768, the 
computer will automatically add a decimal point at the end of the number, so that the 
number becomes real or double-precision. (The decimal point will appear in the 
computer's RAM but not necessarily on your screen.) 

If you type a number that contains an E without a decimal point (such as 7E2), 
the computer will automatically add a decimal point before the E (to form 7.E2), so 
that the number becomes real or double-precision. (The decimal point will appear in 
the computer's RAM but not necessarily on your screen.) 

Accuracy. The computer handles integers accurately. If you type a real number, 
the computer tries to handle it accurately, but sometimes makes slight mistakes with 
the 7th digit. If you type a double-precision number, the computer handles the first 
16 digits accurately, but makes slight mistakes with the 17th digit. 

Speed. The computer handles integers quickly, real numbers slowly, and 
double-precision numbers very slowly. 

RAM consumption. When the computer handles numbers, it automatically 
compresses them, so that the numbers consume very little RAM. Each integer 
consumes just 2 bytes of RAM, each real number consumes 4 bytes, and each 
double-precision number consumes 8 bytes. 

For example, if your program says DIM X(50, 20), the array X contains 50 rows of 
20 numbers, making 1000 numbers altogether; and if each number is real (4 bytes), 
the entire array consumes 4000 bytes—theoretically. In practice, the array also 
contains a few extra bytes, for bureaucratic overhead. So the array contains 
slightly more than 4000 bytes—which is roughly 4K. 

On most computers, BASIC is limited to 64K: if you buy extra RAM beyond 64K, 
BASIC ignores it. Most of that 64K is consumed by the lines of your program, the 
DOS, and BASIC itself, so only a few K are left for arrays. 

Variables. An ordinary variable (such as X) stands for a real number. For 
example, you can say X=3.7, which makes X be the real number 3.7. If you say X=3, 
the computer will make X be 3.0 instead, to make X be a real number. 

You can create four kinds of variables. A simple variable (such as X) ora 
variable that ends in an exclamation point (such as X! ) is a real; a variable that ends 
in a dollar sign (such as X$) is a string; a variable that ends in a percent sign (such 
as X%) is an integer; a variable that ends in a number sign (such as X#) is 
double-precision. 

If you begin your program by saying— 


1 DEFINT A-Z 


all the simple variables (such as X) will be integers instead of reals. 
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What to do. Write your program simply, without worrying about which numbers 
and variables are integers, real numbers, and double-precision numbers. But after 
your program is finished and debugged, edit the program, by making the following 
changes, which improve the program's speed and accuracy. . 

e If your program doesn't involve any decimals or huge numbers, make line 1 say 
DEFINT A-Z. That will turn every variable into an integer, so that the program runs 
faster and consumes less RAM. 

® If your program involves just a few decimals or huge numbers, make line 1 say 
DEFINT A-Z, and put an exclamation point after every variable that stands for a 
decimal or huge number. 

e If you want one of the computations to be performed extra-accurately, put a 
number sign after all variables involved in the computation (for example, say X# 
instead of X), and put at least 8 digits in each number (for example, say 2. 4000000 
instead of 2.4). 

Before you make those changes, check the appendix, to find out whether your 
computer is different. 
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MEMORY CELLS 
The computer's main memory consists of many memory cells. Each cell holds an 
integer from 0 to 255. For example, cell #7512 might hold the integer 17. 
To find out what number's in cell #7512, say: 


PRINT PEEK (7512) 


That makes the computer peek at cell #7512, find the number in that cell, and print 
that number on your screen. The number it prints will be an integer from 0 to 255. 
For example, it might be 17. 

The memory contains two kinds of cells. One kind, called ROM, contains 
information permanently. The other kind, called RAM, contains information 
temporarily, and you.can change that information. When you turn the computer on, 
each RAM cell contains a 0, but you can change the zeros to other numbers. 

If you say— 


POKE 7512,14 


the computer will try to put the number 14 into cell #7512. If cell #7512 is in the RAM, 
the computer will succeed. If cell #7512 is in the ROM, the computer will give up, 
since the information in ROM cells is permanent and can't be changed. 

To find out whether the computer successfully put the number 14 into cell #7512, 
say: 


PRINT PEEK(7512) 


If the computer prints 14, the computer successfully poked. If the computer prints a 
different number instead, the computer's POKE was unsuccessful, which means cell 
#7512 is in the ROM and therefore can't be changed. 

When you turn the computer on, the ROM cells contain their permanent 
information, but the RAM cells are "blank": each RAM cell contains 0. To change the 
numbers in the RAM cells, say POKE. 

Whenever you type a new program or command or data, the computer temporarily 
stores what you typed in the RAM. For example, if you type word CAB (because 
you're writing a program about taxicabs), the computer temporarily puts the ASCII 
codes numbers for C, A, and B into RAM cells. Since C's ASCII code number is 67, 
A's is 65, and B's is 66, the computer puts the numbers 67, 65, and 66 into three 
RAM cells. As you type more programs, commands, and data, the computer puts 
their ASCII code numbers into RAM cells. And into other RAM cells, the computer 
puts notes about what you and the computer are doing. . 

If you say to POKE a number into a RAM cell, beware: the computer already might 
be using that cell to hold an important note. The number you POKE into the cell will 
replace the computer's note. The computer will forget the note, get confused, and go 
crazy. If the RAM cell contained a note about your program, the computer might 
wreck your program; if the RAM cell contained a note about the disk drive, the 
computer might go so crazy that it will turn the drive on and wreck all the 
information on the disk! 

So before you say POKE, you should find out which RAM cells the computer uses 
for which purposes-——and as an extra precaution, remove your disk from the drive. 
Don't reinsert the disk until you've turned off the computer and started fresh again. 
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HOW TO INVENT A PROGRAM 
First, decide on your ultimate goal. Be optimistic. Maybe you'd like the computer to 
play the perfect game of chess? Or translate every English sentence into French? 


Research the past 
Chances are, whatever you want the computer to do, someone else has thought of the 
same idea already, and written a program for, it. 

Find out. Ask your friends. Ask the people in nearby schools, computer stores, 
computer centers, companies, libraries, and bookstores. Look through books and 
magazines. There are even books that list what programs have been written. Ask the 
company you bought your computer from. 

Even if you don't find exactly the program you're looking for, you may find one 
that's close enough to be okay, or that will work with just a little fixing, or can serve 
as part of your program, or will at least give you a clue as to where to begin. In one 
of the textbooks or magazines, you'll probably find a discussion of the problem 
you're trying to solve, and the pros and cons of various solutions to it—some 
methods are faster than others. 

Remember: if you keep your head in the sand, and don't look at what other people 
have done already, your programming effort may turn out to be a mere exercise, of 
no value to the rest of the world. 


Simplify 

All too often, programmers embark on huge projects and never get them done. Once 
you have an idea of what's been done before, and how hard your project seems to be, 
simplify it. Instead of making the computer play a perfect game of chess, how about 
settling for a game in which the computer plays unremarkably but at least doesn't 
cheat? Instead of translating every English sentence into French, how about 
translating just English colors? (We wrote that program already.) In other words, 
pick a less ambitious, more realistic goal, which if you achieve it, will make you feel 
good and will be a steppingstone to your ultimate goal. 

Finding a bug in a program is like finding a needle in a haystack: removing the 
needle is easier if the haystack is small than if you wait until more hay has been piled 
on. 
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Specify the | /O 
Make your new, simple goal more precise. That's called specification. One way to be 


specific is to draw a picture, showing what your terminal's screen or paper will look 


like if your program's running successfully. 
In that picture, find the lines typed by the computer. They become the PRINT 


statements in your program. Find the lines typed by the human: they become the 
INPUT statements. Now you can start writing your program: write the PRINT and 
INPUT statements on paper, with a pencil, and leave blank lines between them. 
You'll fill in the blanks later, and won't type on the terminal until your first draft is 
complete. 

Suppose you want the computer to find the average of two numbers. Your picture 
will look like this: 


RUN 

WHAT'S THE FIRST NUMBER? number 
WHAT'S THE SECOND NUMBER? number 
THE AVERAGE IS number 


Your program at this stage will be: 


10 INPUT ''WHAT'S THE FIRST NUMBER";A 
20 INPUT ''WHAT'S THE SECOND NUMBER";B 
etc. 

100 PRINT ''THE AVERAGE IS";C 


All you have left to do is figure out what the "etc." is. Here's the general 
method. ..... 


Groot your statements 
Suppose you didn't have a computer. Then how would you get the answer? 

Would you have to use a mathematical formula? If so, put the formula into your 
program, but remember that the left side of the equation must have just one 
variable. For example, if you're trying to solve a problem about right triangles, you 
might have to use the Pythagorean formula A?+B?=C?; but the left side of the 
equation must have just one variable, so your program must say A=SQR(C%2-B%2), 
or B=SQR(C%2-A%2), or C=SQR(A“%2+B%2), depending on whether you're trying to 
compute A, B, or C. 

Would you have to use a memorized list, such as an English-French dictionary or 
the population of each state or the weight of each chemical element? If so, that list 
becomes your DATA, and you need to READ it. If it would be helpful to have the data 
numbered, so the first piece of data is called X(1), the next piece of data is called 
X(2), etc., use the DIM statement. 

Subscripts are particularly useful if one long list of information will be referred 
to several times in the program. 

Does your reasoning repeat? That means your program should have a loop. If you 
know how many times to repeat, say FOR. . . NEXT. If you're not sure how often, 
say GO TO. If the thing that's to be repeated isn't repeated immediately, but only 
after several other things have happened, call the repeated part a subroutine, put it 
at the end of your program (followed by RETURN), and say GOSUB whenever you 
want it done. 

At some point in your reasoning, do you have to make a dec/sion? Do you have to 
choose among several alternatives? The way to say "choose" is: IF . . . THEN. If 
you want the computer to make the choice arbitrarily, "by chance", rather than 
because of a reason, say: IF RND(2)=1 THEN. 

Do you have to compare two things? The way to say "compare A with B" is: IF 
A=B THEN. 
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Write pseudocode 
Some English teachers say that before you write a paper, you should make an 
outline. Some computer teachers give similar advice about writing programs. 
The "outline" can look like a program in which some of the lines are written in 
plain English instead of computerese. For example, one statement in your outline 
might be: 


130 A = the average of the twelve values of X 


Such a statement, written in English instead of in computerese, is called 
pseudocode. Later, when you fill in the details, expand that pseudocode into the 
following: 


130 S=0 

131 FOR I = 1 TO 12 
132 S=S+X (I) 
133 NEXT 

134 A=S/12 


Organize yourself 
Keep the program's over-all organization simple. That will make it easier for you to 
expand it and find bugs. Here is some folklore, handed down from generation to 
generation of programmers, that will simplify your organization... . 

Use top-down programming. That means write a one-sentence description of your 
program; then expand that sentence to several sentences; then expand each of those 
sentences to several more sentences; and so on, until you finally expand the 
sentences that came from sentences that came from sentences into lines of program. 
Your program will then be in the same order as the English sentences, and therefore 
will be organized the same way as an English-speaking mind. 

A variation is to use subroutines. That means writing the essence of the program 
as a very short main routine; instead of filling in the grubby details immediately , 
replace each piece of grubbiness by the word GOSUB. After the main routine is 
written, write each subroutine. Your program will be like a good book: your main 
routine will move swiftly, and the annoying details will be relegated to the 
appendices at the back; the appendices are called subroutines. Keep each 
subroutine down to 50 lines; if it starts getting longer and grubbier, replace each 
piece of grubbiness by a GOSUB to another subroutine, written afterwards and 
having higher line numbers. 

Avoid GO TO. It's hard for a human to understand a program that's a morass of 
GO TO statements. It's like trying to read a book where each paragraph says to turn 
to a different page! When you must say GO TO, try to go forward instead of 
backwards, and not go too far. 

Divide your program into modules. A module is a bunch of consecutive lines 
forming a unit that cannot be "punctured"; in other words, there is no GO-TO-type 
statement outside the module that sends the computer to the module's middle; the 
only way the module can be activated is by starting with its top line. (If the module's 
particularly nice, the only way ‘t can be deactivated is by arriving at its bottom line; 
in other words, there is no GO-TO-type statement in the module's middle that sends 
the computer outside the module.) If you used top-down programming, each module 
probably corresponds to one sentence in your program's description. Write that 
sentence at the top of the module, and put an apostrophe to the left of it. 
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Use variables 
After you've written a few lines of your program, you may find that your reasoning 
"almost repeats"; several iines bear a strong resemblance to each other. You can't 
use GO TO or FOR... NEXT or GOSUB ... RETURN unless the lines repeat 
exactly. To make the repetition complete, use a variable to represent the parts that 
are different. 
For example, suppose your program contains these lines: 


130 PRINT 29.3428+9.87627*SQR (5) 
140 PRINT 29.3428+9.87627*SQR (7) 
150 PRINT 29.3428+9.87627*SQR(9) 
160 PRINT 29.3428+9.87627*SQR (11) 
170 PRINT 29.3428+9.87627*SQR (13) 
180 PRINT 29.3428+9.87627*SQR (15) 
190 PRINT 29.3428+9.87627*SQR (17) 
200 PRINT 29.3428+9.87627*SQR (19) 
210 PRINT 29.3428+9.87627*SQR (21) 


Each of those lines says PRINT 29. 3428+9.87627*SQR(a number). The number keeps 
changing, so call it X. Lines 130-210 can be replaced by: 


130° FOR X= 15) 10.21 sSTEPR 2 
140 PRINT 29.3428+9.87627*SQR (X) 
150 NEXT 


Here's a harder example to fix: 


130 PRINT 29.3428+9.87627*SQR (5) | : 
140 PRINT 29.3428+9.87627x*SQR (97.3) i 
150 PRINT 29.3428+9.87627*SQR (8.62) 
160 PRINT 29.3428+9.87627*SQR(.4) 
170 PRINT 29.3428+9.87627*SQR (200) 
180 PRINT 29.3428+9.87627xSQR (12) 7 
190 PRINT 29.3428+9.87627*SQR (591) ‘ 
200 PRINT 29.3428+9.87627*SQR(.2) 

210 PRINT 29.2428+9.87627*SQR (100076) 


Again, let's use X. Those nine lines can be combined like this: 


150,,DATA5,9715,5.02,-4,cu0p4e po oly oc , | GOU7E 
140 FOR I = 1 T0 9 


150 READ X 

160 — PRINT 29.3428+9.87627*SQR (X) 

170 NEXT 
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This one's even tougher: 


430 PRINT 29.3428+9.87627*SQR (A) 
140 PRINT 29.3428+9.87627*SQR (B) 
450 PRINT 29.3428+9.87627*SQR(C) 
160 PRINT 29.3428+9.87627*SQR(D) 
170 PRINT 29.3428+9.87627*SQR(E) 
180 PRINT 29.3428+9.87627*SQR (F) 
190 PRINT 29.3428+9.87627*SQR (G) 
200 PRINT 29.3428+9.87627*SQR (CH) 
210 PRINT 29.3428+9.87627*SQR (1) ‘ 


Let's assume A, B, C, D, E, F, G, H, and I have been computed earlier in the 
program. The trick to shortening those lines is to change the names of the variables. 
Throughout the program, say X(1) instead of A, say X(2) instead of B, say XK (3) 
instead of C, etc. Say DIM X(9) at the beginning of your program. Then lines 
130-210 can be written: 


130 FOR I=1 TO 9 
140 PRINT 29.3428+9.87627*SQR(X(I)) 
450 NEXT 
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MAKE IT EFFICIENT 
Your program should be efficient. That means it should use as little of the 
computer's time and memory as possible. 

To use less of the computer's memory, make your DIMensions as small as possible. 
Try writing the program without any arrays at all; if that turns out to be terribly 
inconvenient, use the smallest and fewest arrays possible. 

To use less of the computer's time, avoid having the computer do the same thing 
more than once. 

These lines force the computer to compute SQR(8.3*N+7) three times: 


50 PRINT SQR(8.3*N+7) +2 
60 PRINT SQR(8.3*N+7) /9.1 
70 PRINT 5-SQR (8. 3*N+7) 


You should change them to: 


++49 K=SQR (8. 3*N+7) 
>>50 PRINT K+2 
++60 PRINT K/9.1 
++70 PRINT 5-K 


These lines force the computer to compute X*9+2 a hundred times: 


50 FOR I = 1 TO 100 
60 PRINT (X*9+2)/I1) 
70 NEXT 


You should change them to: 


+49 K=X49+2 
50 FOR I = 1 TO 100 
++60 PRINT K/I 
70 NEXT 


These lines force the computer to count to 100 twice: 


50 S=0 

60 FOR I = 1 TO 100 

70 S=S+X (1) 

80 NEXT 

90 PRINT: “THE: SUM OF. THE; A*S/IS™ 3S 

100 P=1 ‘ 

110 FOR I = 1 TO 100 

120 P=P*X (I) 

130 NEXT 

140 PRINT "THE PRODUCT OF THE X'S IS";P 


You should change them to: 


50 s=0 
>>51 P=1 
60 FOR I = 1 TO 100 
70 S=S+X (1) 
>>74 P=PxX (I) 
80 NEXT 


90 PRINT. “THE SUM OF OTHE X*SelS a 
140 PRINT "THE PRODUCT OF THE X'S IS";P 


 / 
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Here are more tricks for making your program run faster... . 
Instead of exponents, use multiplication: 


Slow Faster 
50 Y=X%2 Y=X*X 
Combine statements, to form a single line: 
Slow Faster 
50 A=3 50 A=3: B=7 
60 B=7 


Warning: an IF statement cannot be combined with a later statement. 


Cannot be combined 
50 IF I<1 THEN 200 
60 B=7 


If a number contains a decimal point and is in a loop, turn the number into a 
variable: 


Slow Faster 
49 C=3.1 
I = 1 TO 900 50 FOR I = 1 TO 900 
60 S=S+3.1/I 60 S=S+C/I 
70 NEXT NEXT 


Omit the variable after NEXT (unless the FOR...NEXT loop contains another 
FOR...NEXT loop): 


Slow Faster 
50 NEXT I 50 NEXT 


If your program doesn't involve decimals or large numbers, put this statement at 
the beginning of your program: 


1 DEFINT A-Z 


If your program involves just a few decimals or large numbers, begin your program 
by saying DEFINT A-Z, and put an exclamation point after every variable that 
stands for a real number. 

Alphabetizing. Suppose you want the computer to alphabetize a list of names. 
What's the best strategy? 

Imagine trying to alphabetize the list yourself—each name is written on a file 
card, and you have to put the deck of cards in alphabetical order. 

One strategy would be to compare the second card with the first, and swap them 
if necessary; then look at the third card, and swap if necessary; and so on to the 
end of the deck. A different strategy would be to put all the A's in one pile, all the 
B's in another, etc., and then sort each pile. 

Which strategy is better? If the file has ten cards or less, the swap method is 
faster; if the file is very long, the 26-pile method is faster but requires space to lay 
out 26 piles. . 

Which method would make a more efficient program? That depends on how long the 
file is and whether your computer's main lack is fast parts or large memory. 
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Prime numbers. An integer is called composite if it's the product of two other 
integers. 35 is composite, because it's 5*7; 9 is composite, because it's 3*3; 12 is 
composite, because it's 2*6; 13 is not composite, and is therefore called prime. This 
program tells whether a number is prime or composite: 


10 INPUT "WHAT'S YOUR FAVORITE POSITIVE INTEGER";N 
20 FOR I = 1 TO N-1 


30 FOR J = 1 TO N-1 

40 IF N=I*J THEN PRINT N;"IS";I;"TIMES';J;""AND COMPOSITE":. END 
50 NEXT 
60 NEXT 


70 PRINT N;"IS PRIME" 


Line 10 waits for you to type a number N. Line 40 checks whether N is the product of 
two other integers; if it is, the computer says N is composite. 

How efficient is that program? Since it contains no arrays, it doesn't require 
much space in the memory. But if N turns out to be prime, line 40 is encountered 
once for every I and once for every J; altogether it's encountered (N-1)? times. If N 
is a large number, around a million, (N-1)? is around a trillion. To do line 40 a 
trillion times will take a typical microcomputer many years. In fact, if you say that 
your favorite number is 999983 (which is close to a million), the typical 
microcomputer will take about 200 years before it comes to the conclusion that your 
number is prime! So by the time the program finishes running, you'll be dead, and 
so will your children! The program is very inefficient. 

Some small improvements are possible; for example, I and J can start at 2 instead 
of 1. But so long as you have a loop inside a loop, the time will remain very large. 

The following strategy requires just one loop: divide N by every integer less 
than it, to see whether the quotient is ever an integer. Here's the program: 


10 INPUT "WHAT'S YOUR FAVORITE POSITIVE NUMBER";N 
++20 FORTE) = erlo N= | . 
++40 Q=N/I: IF Q=INT(Q) THEN PRINT N;"IS'";1I;"TIMES";Q;"'AND COMPOSITE": END 
60 NEXT 
COSPRINT New TS. PRIMES 


Line 40 consists of two parts. The first part says to divide N by an integer (1); the 
quotient's called Q. The second part says that if Q is an integer, N is composite. 

How efficient is our new program? If N turns out to be prime, line 40 is 
encountered once for every I; altogether it's encountered N-2 times. That's less 
than in the previous program, where it was encountered (N-1)?2 times. If N is about a 
million, our new program is nearly a million times faster than the previous one! To 
determine whether 999983 is prime, the new program takes a typical microcomputer 
about 3 hours instead of 200 years. 

We can improve the program even further. If an N can't be divided by 2, it can't 
be divided by any even number; so after checking divisibility by 2, we have to 
check) .divisibility. by :just.3,/:5,> hig fae N-2 0 Let's putithat snort-cutuintosour 
program, and also say that every N less than 4 is prime: 


10 INPUT "WHAT'S YOUR FAVORITE NUMBER";N 
>+>11 IF N<4 THEN PRINT N;"IS PRIME”: END 
+12 Q=N/2: IF Q=INT(Q) THEN PRINT N;"IS 2 TIMES";Q;"'AND COMPOSITE": END 
+ +oUSEORAL {PSU R0ENeees Tepe 


40 Q=N/I: IF Q=INT(Q) THEN PRINT N;"IS";1;"TIMES";Q;""AND COMPOSITE": END 
60 NEXT 


(0) PRINTON;  TSSPRIMES 


Line 12 checks divisibility by 2; lines 20-60 check divisibility by 3, 5, 7,..., 
N-2. If N is prime, line 40 is encountered N/2- 2 times, which is about half as often 
as in the previous program; so our new program takes about half as long to run. On 
a‘typical microcomputer, it takes about 14 hours to handle 999983. 
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Our original object was to find a pair of integers whose product is N. If there is 
such a pair of integers, the smaller one will be no more than YN, so we can restrict 
our hunt to the integers not exceeding WN: 


10 INPUT "WHAT'S YOUR FAVORITE NUMBER";N 
11 IF N<& THEN PRINT N;"IS PRIME'': END 


12 Q=N/2: IF Q=INT(Q) THEN PRINT N;"IS 2 TIMES';Q;"'AND COMPOSITE": END 
++20 FOR I = 3 TO SQR(N)*1.00001 STEP 2 


nt Q=N/I: IF Q=INT(Q) THEN PRINT N;"IS";1;"TIMES";Q;""AND COMPOSITE": END 
NEXT 


70 PRINT N;"'IS PRIME" 


The "1.00001" is to give a margin of safety, in case the computer rounds SQR(N) a 
bit down. If N is near a million, line 40 is encountered about 500 times, which is much 
less than the 500,000 times encountered in the previous program and the 
1,000,000,000,000 times encountered in the original. This program lets the typical 
microcomputer handle 999983 in about 6 seconds. That's much quicker than the 
earlier versions, which required 1} hours, or 3 hours, or 200 years! 

Moral: a few small changes in a program can make the computer take 6 seconds 
instead of 200 years. 

The frightening thing about this example is that the first version we had was so 
terrible, but the only way to significantly improve it was to take a totally fresh 
approach. To be a successful programmer, you must always keep your mind open, 
and hunt for fresh ideas. 


DON'T BE SILLY 
After you've written a program, skim through it to see whether any of its lines are 
silly. Eliminate the silly lines, so that your program becomes briefer, simpler, and 
more pleasant. 
In the following examples, I assume your program is numbered 10, 20, 30, 
40 


Don't tell the computer to GO TO the next line. For example, don't say: 
30 GO TO 40 


Omit it. The computer will go to line 40 anyway. 
Here's another example of a GO TO that goes to the next line: 


30 IF X<7 THEN GO TO 40 


Omit it. The computer will go to line 40 anyway. 
Here's another example of a GO TO that goes to the next line: 


30 IF X<7 THEN PRINT "WOW'' ELSE GO TO 40 
Omit the "ELSE GO TO 40"; just say: 
30 IF X<7 THEN PRINT ''WOW"' 


Don't write an IF that skips over just one line. For example, don't write: 


SUetF«X<s/_ THEN. GO’ TO "50 
40 PRINT ''WOW"' 


That line 30 is an IF that skips over just line 40. It's silly! Combine lines 30 and 40 
into a single line: 


30 IF X>=7 THEN PRINT "WOW'' 


Don't write an IF followed by its opposite. For example, don't write: 


50 ULF oX< 74 aI HENSPRING. GEEe 
40 IF X>=7 THEN PRINT "WOW"! 


Combine them into a single line: 
30 IF X<7 THEN PRINT "GEE" ELSE PRINT "WOW" 


(That combination works only on computers that understand the word ELSE.) 


(155) Advanced BASIC: style 


Here's another example of an IF followed by its opposite: 


30 IF X<7 THEN GO TO 100 
40 IF X>=7 THEN PRINT "WOW" 


Remove the IF from line 40: 


30 IF X<? THEN GO TO 100 
++40 PRINT "WOW" 


The new version does the same thing as the original, because the computer reaches 
the new 40 only if X is not less than 7. 
Here's another IF followed by its opposite: 


30 IF X<? THEN GO TO 50 
40 IF X>=7 THEN PRINT "'WOW"' 


Applying the same technique as before, remove the IF from line 40: 


SO). TE. X<?¢ THEN’ GOTO), 50 
++40 PRINT "WOW" 


But also notice that line 30 is an IF that skips over just one line; we've uncovered 
another piece of silliness! Applying more cosmetics, we get down to a single line: 


30 IF X>=7 THEN PRINT ''WwOwW" 
Here's another IF followed by its opposites: 


30 /LEXX<7) FHEN “GOs TO 106 
40 IF X=7 THEN GO TO 200 
50 IF X>7 THEN PRINT "WOW"' 


Remove the last IF: “ 
30 IF X<7 THEN GO TO 100 25 
40 IF X=7 THEN GO TO 200 

>+>50 PRINT ''WOW"' ly 


| 


Ae 


yi 
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AVOID ROUND-OFF ERROR 
The computer cannot handle decimals accurately. If you say X=.1, the computer 
can't set X equal to .1 exactly; instead, it will set X equal to a number very, very 
close to .1. The reason for the slight inaccuracy is that the computer thinks in 
"binary", not decimals; and .1 cannot be expressed in binary exactly. 

Usually you won't see the slight inaccuracy: when you ask the computer to PRINT 
anumber, the computer prints it rounded to six significant figures, and the 
inaccuracy is so small it doesn't show up in the rounded result. But there are three 
situations in which the inaccuracy can be noticed: 


1. Telling the computer to do A-B, where A is almost equal to B, and the first 


several digits of A are the same as the first several digits of B. For example, if you 
ask a typical microcomputer to print 8.001-8, the computer will not print .001; 


instead it will print .000999451. The same thing happens if you do 8.001+(-8). 

If you ask the typical microcomputer to print 987654.1-987654, it will print .125 
instead of .1. The error can get magnified: if you ask the computer to multiply 
987654.1-987654 by 1000, it will print .125*1000, which is 125, instead of .1*1000, 
which is 100. If you ask it to find the reciprocal of 987654.1-987654, it will print 
1/.125, which is 8, instead of 1/.1, which is 10. 

Those are the errors produced by atypical microcomputer. The errors produced 
by your computer might be slightly more or less. But even if your computer is a maxi 
that costs $10,000,000, it makes those same kinds of errors. 


2. Saying "FOR X = A TO B STEP C", where C is a decimal and the loop will be 
done many times. For example: 


MOSFOR X.= 1 TO.c STEP .1 
20 PRINT X 
30 NEXT 


Theoretically, the computer should print 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 
1.9, and 2. But that's not what actually happens. In line 10, the computer can't 
handle the decimal .1 accurately. The last few numbers the typical microcomputer 
thinks of are: 


_ slightly more than 1.7 
slightly more than 1. 8 
slightly more than 1.9 


The computer does not think of the next number, slightly more than 2.0, because 
line 10 says not to go past 2. In line 20, the word PRINT makes the computer print 
the numbers rounded to six significant digits, so it prints: 


any Shes SEN Sy 5 SSS 
s s 
OOONAULEWND = 


It does not print 2. 


a> 
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If you want to compute 1+ 1.14+1.24+1.34+1.4+1.5+1.6+1.7+1.8+ Teenie, 
you might be tempted to write this program: 


+>5 S=0 

10. FOR X = 1 TO 2 STEP ~1 
+20 S=S+X 

30 NEXT 
+>+40 PRINT S$ 


The computer will print a reasonable-looking answer: 14.5. But that "answer" is 
wrong, because the last number it added was slightly more than 1.9; it never added 
2. The correct answer is 16.5. 

One remedy is to change line 10 to this: 


40 .FOR? X?= 1500 2050S TER Ras 


The .05 after the 2 allows for the margin of error. The general strategy is to 
change— 


10 FOR X 
to this: 
10 FOR X = A TO BtC/2 STEP C 

An alternative remedy is to replace— 
10 (FOR: Xyse lo i04eeStePt 
by this pair of lines: 


10 FOR I = 10 TO 20 
11 Kat 10 


As I goes from 10 to 20, X will go from 1 to 2in steps of .1. This remedy is the most 
accurate of all, since it eliminates decimals from line 10. But the division in line 11 
makes the program very slow. 

3. Asking the computer whether two numbers X and Y are equal. It's unwise to 
ask whether X is exact/y equal to Y, since both X and Y have probably been affected 
by some slight error. Instead, ask the computer whether the difference between X 
and Y is much tinier than Y: 


Bad Good 
IF X=Y THEN IF ABS (X-Y)<=.000001*ABS CY) THEN 


The .000001 is requesting, roughly, that the first six significant digits of X be the 
same as the first six significant digits of Y. 

Why binary? From those discussions, you might think computers should be made 
differently, and that they should use the decimal system instead of binary. There 
are two counterarguments. 

First, binary arithmetic is faster. 

Second, even if computers were using the decimal system, inaccuracy would still 
occur. To store the fraction 2/3 accurately by using the. decimal system, the 
computer would have to store a decimal point followed by infinitely many 6's. That 
would require an infinite amount of space in memory, which is impogsible (unless you 
know how to build an infinitely large computer?) So even in the decimal system, some 
fractions must be approximated instead of handled exactly. 


AutO Be StEPTC 
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Begin with the tiny. According to mathematicians, addition is supposed to obey 
these laws: 


A+0 is exactly the same as A 

A+B is exactly the same as BtA 

A+-A is exactly the same as 0 

(A+B)+C is exactly the same as At+(B+tC) 


On the computer, the first three laws hold, but the last does not. If A is a decimal 
tinier than C, the computer does (A+B)+C more accurately than A+(B+C). So to add 


a list of numbers accurately, begin by adding together the tiniest decimals in the 
list. 


TEST YOUR PROGRAM 
When you've written a program, test it: type RUN and see whether it works. 

If the computer does not gripe, your tendency will be to say "Whoopee!" Don't 
cheer too loudly.’ The answers the computer is printing may be wrong. Even if its 
answers look reasonable, don't assume they're right: the computer's errors can be 
very subtle. Check its answers, by doing some calculations on a piece of paper. 

Even if the answers the computer prints are correct, don't cheer. Maybe you 
were just lucky. Type different input, and see whether your program still works. 
Chances are, there's something you can input that will make your program go crazy 
or print a wrong answer. Your mission: to find input that will reveal the existence of 
aeouse bry Six kinds of input. >, 

1. Try simple input. Type in simple integers, like 2 and 10, so the computation is 
simple, and you can check the computer's answers easily. 

2. Try input that increases. See how the computer's answer changes when the 
input changes from 2 to 1000. Does the change in the computer's answer look 
reasonable? Does the computer's answer go up when it should go up, and down when 
it should go down? and by a reasonable amount? 


3. Try input that tests each IF. For a program that says— 
BUSLF OX</ THEN GO TO. 100 


input an X less than 7 (to see whether line 100 works), input an X greater than 7 (to 
see whether line 40 works), input an X equal to 7 ( to see whether you really want 
"<" instead of "<=""), and input an X very close to 7, to check round-off error. For a 
program that says— 


~30 IF A*2+B<C THEN GO TO 100 


input an A, B, and C that make A%2+B less than C; that make A%2+B close to Cie 
4. Try extreme input. What happens if you input: 


a huge number, like 45392000000 or 1E30? 
a tiny number, like . 00000003954 or 1E-35? 
a trivial number, like 0 or 1? 

a typical number, like 45.13? 

a negative number, like -92? 


Find out. If the input is supposed to be a string, what happens if you input AAAAA 
or ZZZZZ? If there are supposed to be two inputs, what happens if you input the 
same thing for each? | 

5. Try input that will make some lines in your program act strangely. If your 
program contains division, try input that will make the divisor be zero or a tiny 
decimal close to zero. If your program contains the square root of a quantity, try 
input that will make the quantity be negative. If your program says "FOR I= A TO 
B", try input that will make B be less than A, or equal to A. If your program 
mentions X(I), try input that will make I be zero or negative or greater than the 
DIM. Try input that causes round-off error: for a program that says "A-B" or says 
"IF A=B THEN", try input that will make A almost equal B. 
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6. Try garbage. Many people hate computers because they often print wrong 
answers. A computer can print a wrong answer because its machinery 1s broken, or 


because a program has a bug. But the main reason why computers print wrong 
answers is that the input is incorrect. Incorrect input is called garbage. It has 
several causes. ... 

The user's finger slips. Instead of 400, he inputs 4000. Instead of 27, he inputs 
72. Trying to type .753, he leaves out the decimal point. 

The user got wrong information. He tries to input the temperature, but his 
thermometer is leaking. He tries to input the results of a questionnaire, but 
everybody who filled out his questionnaire lied. 

The instructions aren't clear. The program asks HOW FAR DID THE BALL FALL, 
and the user doesn't know whether to type the distance in feet or in meters. Is time 
to be given in seconds or minutes? Are angles to be measured in degrees or radians? 
If the program asks WHAT IS YOUR NAME, should the user type JOE SMITH or 
"SMITH,JOE" or just JOE? Can the user input Y instead of YES? Maybe the user isn't 
clear about whether to insert commas, quotation marks, and periods. If several items 
are to be typed, should they be typed on the same line or on separate lines? If your 
program asks HOW MANY BROTHERS AND SISTERS DO YOU HAVE, and the user 
has 2 brothers and 3 sisters, should he type 5 or "2,3" or "2 BROTHERS AND 3 
SISTERS"? For a quiz that asks WHO WAS THE FIRST PRESIDENT OF THE UNITED 
STATES, what if the user answers GEORGE WASHINGTON or simply WASHINGTON 
or G. WASHINGTON or GENERAL. GEORGE WASHINGTON or PRESIDENT 
WASHINGTON or MARTHA'S HUSBAND? Make the instructions clearer: . 


WHO WAS THE FIRST PRESIDENT OF THE UNITED STATES (GIVE JUST HIS LAST NAME)? 


The user is trying to be funny or sabotage the computer. Instead of inputting his 
name, he types an obscene comment. When asked how many brothers and sisters he 
has, he says 275. 


It's your responsibility as a programmer to make sure that the directions for 
using your program are clear, and that the program rejects ridiculous input. For 
example, if your program is supposed to print weekly paychecks, it should refuse to 
print checks for more than $10000. Your program should contain these lines: 


20 INPUT “HOW MUCH MONEY DID THE EMPLOYEE EARN";E 


30 IF E>10000 THEN PRINT E;"IS QUITE A BIG PAYCHECK! I DON'T BELIEVE YOU'': PRIN 
T "PLEASE RETYPE YOUR REQUEST.": GO TO 20 


Line 30 is called an error trap (or an error-handling routine). Your program should 
contain several, to prevent printing checks that are too small (2¢?) or negative or 
otherwise ridiculous ($200. 73145?) 

To see how your program reacts to input that's either garbage or unusual, ask 


the person sitting next to you to run your program. That person might input 
something you never thought of. 
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DOCUMENT IT 
Write an explanation that helps other people understand your program. An 
explanation is called documentation; when you write an explanation, you're 
documenting the program. 
You can write the documentation on a separate sheet of paper (to be put in the 
computer center's library), or you can make the computer print the documentation 
when the user types RUN or LIST. 


A popular device is to begin the RUN by making the computer ask the user: 
DO YOU NEED INSTRUCTIONS? 


You need two kinds of documentation: how to use the program, and how the 
program was written. ' 
Your explanation of how to use the program should include: 


the program's name 
how to get the program from the disk 
the program's purpose 


a list of other programs that must be combined with this program, to make a workable 
combination 


the correct way to type the input and data (show an example) 
the correct way to interpret the output 


the program's limitations (input it can't handle, a list of error messages that might 
be printed, round-off error) 


a list of bugs you haven't fixed yet 


An explanation of how you wrote the program will help other programmers borrow 
your ideas, and help them expand your program to meet new situations. It should 
include: 


your name 

the date you finished it 

the computer you wrote it for 

the language you wrote it in (probably BASIC) 


the name of the method you used ("This program solves quadratic equations by 
using the quadratic formula, solves triangles by using the law of sines, solves © 
simultaneous linear equations by using Gauss-Jordan elimination, and alphabetizes 
the data by using a bubble sort.") 


the name of the book or magazine where you found the method 
the name of any program you borrowed ideas from 


an informal explanation of how the program works ("It keeps looping until At2 is 
greater than 2*B, which makes it jump to subroutine 1000 and compute the weather 
forecast for Tuesday.") 


the purpose of each module 
the meaning of each variable 


the meaning of arriving at a line (for a program saying IF X<60 THEN GO TO 1000, 
you might say, "Arrival at line 1000 indicates the student flunked.") 
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FANCY INPUT © 


VARYING THE INPUT STATEMENT b 
The typical INPUT statement looks like this: 


10 INPUT "WHAT IS YOUR NAME";NS 


It makes the computer ask "WHAT IS YOUR NAME?" then wait for you to answer the 
question. So when you run the program, the conversation looks like this: 


WHAT IS YOUR NAME? MARIA . 


Notice that the computer automatically adds a question mark at the end of the 
question, and leaves a blank space after the question mark. 

Omitting the question mark. If you want to omit the question mark and the blank 
Space, replace the semicolon by a comma: 


10 INPUT "WHAT IS YOUR NAME" ,NS 


The computer will omit the question mark and the blank space, so the conversation 
will look like this: 


WHAT IS YOUR NAMEMARIA 
Here's a prettier example of how to use the comma: 
10 INPUT "PLEASE TYPE YOUR NAME...'',NS 
The conversation will look like this: 
PLEASE TYPE YOUR NAME...MARIA 
Here's an even prettier example: 
10 INPUT "TO BECOME A MOVIE STAR, TYPE YOUR NAME NEXT TO THE STARS***" ,NS 
The conversation will look like this: | 
TO BECOME A MOVIE STAR, TYPE YOUR NAME NEXT TO THE STARS***MARIA 


Omitting the prompt. The typical INPUT statement contains a question, such as 
"WHAT IS YOUR NAME". The question is called the prompt. If you wish, you can 
omit the prompt, like this: 


10 INPUT N$ 


That line doesn't include a question, but the computer still prints a question mark 
followed by a blank space, so the conversation looks like this: 


2? MARIA 


To make that example more practical, you should add a PRINT statement above © 
line 10, like this: 


9 PRINT "PLEASE TYPE YOUR NAME AFTER THE QUESTION MARK" 
10 INPUT NS . 


That makes the conversation look like this: 


PLEASE TYPE YOUR NAME AFTER THE QUESTION MARK 
2? MARIA 
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Adjacent printing. Here's a simple program: 


40 INPUT "WHAT IS YOUR NAME";NS 
20 PRINT '!!!WHAT A WONDERFUL NAME!!!" 


It produces this conversation: 


WHAT IS YOUR NAME? MARIA 
11 '!WHAT A WONDERFUL NAME!!! 


To have more fun, insert a semicolon immediately after the word INPUT, like this: 


10 INPUT;"WHAT IS YOUR NAME"';NS 
20 PRINT '!!!WHAT A WONDERFUL NAME!!!" 


The conversation still begins normally: 
WHAT IS YOUR NAME? MARIA 


But when you press the ENTER key after MARIA, the extra semicolon makes the 
computer print line 20 next to MARIA, like this: 


WHAT IS YOUR NAME? MARIA! !!WHAT A WONDERFUL NAME!!! 
To surprise your friends, run this program: 


40 INPUT;"WHAT IS YOUR NAME";NS 
20 PRINT N$;N$;NS 


The program begins by asking: 

WHAT IS YOUR NAME? 

Suppose the person says MARIA, like this: 
WHAT IS YOUR NAME? MARIA 


When the person presses the ENTER key after MARIA, line 20 automatically prints 
MARIA three more times afterwards, like this: 


WHAT IS YOUR NAME? MARIAMARIAMARIAMARIA 
This program asks for your first name, then your last name: 


10 INPUT;"'WHAT IS YOUR FIRST NAME"; FS 
20 INPUT '' WHAT IS YOUR LAST NAME";L$ 


Line 10 makes the conversation begin like this: 
WHAT IS YOUR FIRST NAME? MARIA 


When you press the ENTER key after MARIA, the extra semicolon in line 10 makes 
line 20 appear on the same line, like this: 


WHAT IS YOUR FIRST NAME? MARIA WHAT IS YOUR LAST NAME? 
If you answer HERNANDEZ, the whole conversation looks like this: 
WHAT IS YOUR FIRST NAME? MARIA WHAT IS YOUR LAST NAME? HERNANDEZ 


(163) Advanced BASIC: fancy input 


Multiple input. This program asks for your name, age, and weight: 
10 INPUT "NAME, AGE, WEIGHT';N$,A,W 
When you run the program, the computer asks: 
NAME, AGE, WEIGHT? 


The computer waits for you to type your name, age, and weight. When you type 
them, put commas between them, like this: 


NAME, AGE, WEIGHT? JOHN,25,148 

If your name is "JOHN SMITH, JR.", and you want to input all that instead of just 
JOHN, you must put quotation marks around your name: 
NAME, AGE, WEIGHT? "JOHN SMITH, JR.",25,148 


Here's the rule: you must put quotation marks around any INPUT string that 
contains a comma. 


LINE INPUT 
If you say-—— 


10 LINE INPUT ''PLEASE TYPE YOUR NAME...";N$ 
the computer will say: | 
PLEASE TYPE YOUR NAME... 


Then the computer will wait for you to type your name. You do not have to put 
quotation marks around your name, even if your name contains a comma. LINE INPUT 
means: the entire line that the person inputs will become the string, even if the line 
contains a comma. 

Notice that the LINE INPUT statement does not make the computer automatically 
print a question mark. And notice that the variable must be a string (such as N$), 
not a number. 


INPUTS 
This program reveals private information about MARY: 


10 PRINT "MARY SECRETLY WISHES TO KISS A COW" 


Let's protect that program, so that only people who know the "Secret password" 
can run it. Here's how. 

First, invent a secret password. Let's make the secret password be "TUNA". 

Here's the program: 


5 INPUT "WHAT'S THE SECRET PASSWORD"; P$ 
10 IF P$="'TUNA" THEN PRINT "MARY SECRETLY WISHES TO KISS A COW" ELSE PRINT "YOU 
ARE AN UNAUTHORIZED USER" ~ 


Line 5 asks the person to type the secret password. Whatever the person types is 
called P$. If the person types TUNA, line 10 makes the computer say: | 


MARY SECRETLY WISHES TO KISS A COW 


But if the person does not type TUNA, the computer says "YOU ARE AN 
UNAUTHORIZED USER" and refuses to reveal Mary's secret desire. 


od 
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This program's better: 


5 PRINT ''PLEASE TYPE THE SECRET PASSWORD" 

6 PS=INPUTS (4) 

10 IF P$="TUNA" THEN PRINT "MARY SECRETLY WISHES TO KISS A COW" ELSE PRINT "YOU 
ARE AN UNAUTHORIZED USER" 


Line 5 makes the computer say: 
PLEASE TYPE THE SECRET PASSWORD 


Line 6 waits for the person to input 4 characters. The characters that the person 
inputs will become P$. For example, suppose the person types T, then U, then N, 
then A; then P$ will become TUNA, and the computer will reveal Mary's secret. 

While the person inputs the 4 characters, they will not appear on the screen; 
they'll be invisible. That's to prevent other people in the room from peeking at the 
screen and noticing the password. 

After typing the 4 characters, the person does not have to press the ENTER Key. 
As soon as the person types the 4th character, the computer makes P$ be the 4 
characters that the person typed. 

Broken computer. This devilish program makes your computer pretend to be 
broken, so that whenever you press the W key your screen shows an F instead: 


10 CLS 

20 AS=INPUTS (1) 

30 IF A$="W'" THEN PRINT "'F"; ELSE PRINT AS; 
40 GO TO 20 


Line 10 clears the screen (makes the screen go blank), so that your friends don't 
see the program. Line 20 waits for you to type 1 character. Line 30 says: if the 
character you typed was W, print an F on the screen instead; otherwise, print the 
character you typed. Line 40 makes the routine repeat, forever. For example, if you 
try to type "THE WEATHER IS WONDERFUL", you'll see this on the screen instead: 


THE FEATHER IS FONDERFUL 


For an even wilder time, tell the computer to change each "E" to "OOGA", by 
changing line 30 to this: 


30 IF A$="E'"' THEN PRINT "OOGA'"'; ELSE PRINT AS; 
Then if you try to type "WE ARE HERE", you'll see this on the screen instead: 
WOOGA AROOGA HOOGAROOGA 


wi 
\ , \\y 


he | 
CANON iL ham aa 
5 


Wis 
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Abridged literature. This program gives you a choice of literature: 


10 PRINT "WELCOME TO THE WORLD'S GREAT LITERATURE, ABRIDGED" 
20 PRINT "WHICH KIND OF LITERATURE WOULD YOU LIKE?" 

30 PRINT “"'N: NOVEL" 

40 PRINT "P: POEM" 

50 PRINT "PLEASE PRESS N OR P" 

60 A$=INPUTS (1) 

70 IF A$="'N" THEN GO TO 100 

80 IF A$="'P'"' THEN GO TO 200 

90 GO TO 50 

100 PRINT "HE: I LOVE YOU" 

110 PRINT "SHE: I'M PREGNANT" 

120 PRINT "HE: LET'S GET MARRIED" 

130 PRINT "SHE: LET'S GET DIVORCED" 

140 PRINT "HE: LET'S GET BACK TOGETHER" 

150 PRINT ''SHE: TOO BAD YOU DIED IN THE WAR, BUT I'LL NEVER FORGET YOU!" 
160 END 
200 PRINT ''NOSES" 

210 PRINT "BLOWSES" 


Lines 10-50 make the computer print: 


WELCOME TO THE WORLD'S GREAT LITERATURE, ABRIDGED 
WHICH KIND OF LITERATURE WOULD YOU LIKE? 

N: NOVEL 

P: POEM 

PLEASE PRESS N OR P 


Line 60 makes the computer wait for you to press a key. You do not have to press 
the ENTER key afterwards. 

If you pressed the N key, line 70 sends the computer to line 100, which prints an 
abridged novel. If you pressed the P key instead, line 80 sends the computer to line 
200, which prints an abridged poem. 

If you pressed neither the N key nor the P key, the computer arrives at line 90, 
which sends the computer back to line 50, which reminds you to press N or P. 


JOYSTICKS 
You can attach your computer to a joystick. A joystick is a stick that you can move in 
all four directions (left, right, forward, and back) and diagonally. 
In line 100 of your program, if you want the computer to look at the joystick, say: 


100 X=STICK(O): Y=STICK (1) 


That line makes X become a number that indicates how far the joystick is being pulled 
to the right, and Y become a number that indicates how far the joystick is being 
pushed forward. To make the computer print X and Y on your screen, say: 


110 PRINT X,Y 

To make the computer look at the joystick again and again, repeatedly, create a 

loop, by adding this line: 

120 GO TO 100 

Then as you move the joystick, you can watch the numbers on the screen change. 
Besides printing the numbers X and Y on the screen, you can use the numbers X 

and ¥ in graphics statements (such as PLOT, LINE, and CIRCLE), so that the 

joystick controls the location of graphics shapes on the screen. You can also use the 


X and Y numbers in the SOUND statement, so that the joystick controls the pitch of 
musical sounds: moving the joystick will change the pitch. 
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PRINT USING 


FUNDAMENTALS 
Suppose you want to add $12.47 to $1.03. The correct answer is $13.50. This almost 
works: 


PRINT 12.47+1.03 
The computer will print: 
| See 


But instead of 13.5, we should try to make the computer print 13.50. 
This program forces the computer to print 13.50: _ 


PRINT USING "##.##"; 12.47+1.03 


The "##.##" is called the picture or image or format: it says to print two characters, 
followed by a decimal point, followed by two digits. The computer will print: 


13.50 
The computer will round: 
PRINT USING "##.##"; 300/7 


When the computer divides 300 by 7, it gets 42.8571, but the format rounds the 
answer to 42.86. The computer will print: 


42.86 

If you say— 
PRINT USING ''FUNNY##.##J0E"; 300/7 
the computer will print: 
FUNNY42.86JOE 
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MULTIPLE NUMBERS 
If you say— 


PRINT USING "MY ## ENEMIES DRANK ####.# GALLONS OF BOOZE"; 24,1784.5 
the computer will print: 
MY 25 ENEMIES DRANK 1784.5 GALLONS OF BOOZE 
A format, such as "###.##", is a string. You can replace it by a string variable: 


10 AS="###.##" 

20 PRINT USING A$; 247.91 
30 PRINT USING A$; 823 
40 PRINT USING A$; 7 

50 PRINT USING A$; -5 

60 PRINT USING A$; -80.3 


The computer will print: 


The computer prints the numbers so that the decimal points are underneath each 
other. 
To print those numbers across instead of down, say this: 


PRINT USING "###.##"; 247.91,823,7,-5,-80.3 
The computer will print: 
267-91825.00 4 (e003 3. 0U TOU. 0 


Because the computer prints those numbers so close together, they're hard to read. 
To make the computer insert extra space between the numbers, widen the format, by 
putting a fourth "#" before the decimal point: 


PRINT USING "####.##"; 247.91,823,7,-5,-80.3 
Now the computer will print: 
247.091 825.00 7700) 35500 5-60 230 


LARGE NUMBERS 
Suppose you say: 


PRINT USING "###.##"; 16238.7 


The computer tries to print 16238.7, by using the format "###.##". But since the 
format allows only three digits before the decimal point, the format isn't large 
enough to fit 16238.7. So the computer must disobey the format. But the computer 
also prints a percent sign, which means "Warning! I am disobeying you!" 
Altogether, the computer prints: : 


416238. 70 


FINAL SEMICOLON 
At the end of the PRINT USING statement, you can put a semicolon: 


10 PRINT USING "##.##"; 13.5; 
20 PRINT "ZAP" 


Line 10 makes the computer print 13.50. Because of the semicolon at the end of line 
10, the computer will print ZAP on the same line, like this: 


13.50ZAP 
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ADVANCED FORMATS 
If you say— 


10 AS="SKYHHHHHH. HHART" 
20 PRINT USING A$; -27931.6 
30 PRINT USING A$; 8.95 


the computer will print: 


SKY-27931 . 60ART 
SKY 8.95ART 


If you change the format to "SKY###,###.##ART", the computer will insert a 
comma if the number is large: 


SKY-27,931 . 60ART 
SKY 8.95ART 


If you change the format to "SKY ######.##-ART", the computer will print the 
minus sign at the right instead of at the left: 


SKY 27931.60-ART 
SKY 8.95 ART 


That minus sign, at the right, is called a trailing minus, because it trails after the 
number. A minus sign at the left is called a leading minus. 

If you change the format to "SKY+#####.##ART", the computer will print a plus 
sign in front of any positive number: 


SKY-27931 . 60ART 
SKY +8. 95ART 


Normally, a format begins with ##. If you begin with $$ instead (like this: 
"SKY $$###4#- ##ART"), the computer will print a dollar sign before the digits: 


SKY-$27931 . 6OART 
SKY $8. 95ART 


If you begin with ** (like this: "SKY **#####. ##ART"), the computer will print 
asterisks before the number: 


SKY *-27931 . 60ART 
SKY xx****S8. OSART 


If you begin with **$ (like this: "SKY**$#####. ##ART"), the computer will print 
asterisks and a dollar sign: 


SKY *x-$27931 . 60ART 
SKY kx****S8. BSART 


When you're printing a paycheck, use the asterisks, to prevent the employee 
from enlarging his salary. Because the asterisks protect the check from being 
altered, the asterisks are called check protection. | 

You can combine several techniques in a single format. For example, you can 
combine the comma, the trailing minus, and the **$ (like this: 
"SKY **$## #44 #4 ART"), so that the computer will print: 


SKY **$27,931 .60-ART 
SKY xx*****$8.95 ART 


If you change the format to "SKY##. #####44“4ART", the computer will print 
numbers by using E notation: 


SKY-2. 7931 6E+O04ART 
SKY 8.95000E+00ART 
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SUD PPS 


HOW TO SWAP 
Modern computers understand the word SWAP: 


10 A=4: B=9 
20 SWAP A,B 
30 PRINT A;B 


Line 10 says A is 4 and B is 9. Line 20 swaps A with B, so that A becomes 9, and B 
becomes 4. Line 30 prints: 


9 4 


If your computer is old-fashioned and doesn't understand the word SWAP, 
replace line 20 by this: 


20 S=A: A=B: B=S 


| 
: 


oct ey een eg ade 


“come 


That example swapped numbers. You can also swap strings: 


10 A$S="'HORSE": BS="'CART" 
20 SWAP A$,BS 
30 PRINT A$;" "';BS 


Line 10 says A$ is "HORSE" and B$is "CART". Line 20 swaps A$ with B$, so that A$ 
becomes "CART", and B$ becomes "HORSE". Line 30 puts the CART before the 
HORSE: 


CART HORSE | 
If your computer doesn't understand SWAP, replace line 20 by this: | 
20 S$=A$: AS=B$: BS=S$ : 


ne ek eT ee Oe Res 
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SHUFFLING 
Here are some cards: ; 


Queen of Hearts 
Jack of Diamonds 
Ace of Spades 
Joker 

King of Clubs 


Let's shuffle them, to put them into a random order. 
To begin, put the list of cards into a DATA statement: 


10 DATA QUEEN OF HEARTS,JACK OF DIAMONDS,ACE OF SPADES ,JOKER,KING OF CLUBS 
We have 5 cards: 
20 N=5 


Let the Queen of Hearts be called X$(1), the Jack of Diamonds be called X$(2), 
the Ace of Spades be called X$(3), the Joker be called x $(4), and the King of Clubs 
be called X$(5): 


30 DIM X$(N) 
40 FOR I = 1 TO N: READ XS(I): NEXT 


Shuffle the cards, by using the following strategy. .. - Swap the card N with a 
random card before it (or with itself); then swap card N- 1 with a random card before 
it (or with itself); then swap card N-2 with a random card before it (or with itself) ; 
ete. Keep doing that, until you finally reach ecard 2, which you swap with a random 
card before it (or with itself). Here's the code: 


50 RANDOMIZE 
60 FOR I = N TO 2 STEP -1: SWAP X$C(I),X$(RND(I)): NEXT 


If your computer doesn't understand SWAP, replace "SWAP X$(I) ,X$(RND(I))" by 
this: 


R=RND(I): SS=X$(1): XSCID=X$(R): XSCRI=SS 


If your computer doesn't understand the word RANDOMIZE, or doesn't understand 
that RND(1I) is a random number from 1 to I, you must make further changes. 
Finally, print the shuffled deck: 


7O-FOR 1) =.1 TON: PRINT X$(1): NEXT 
The computer will print something like this: 


KING OF CLUBS 
JOKER 

JACK OF DIAMONDS 
QUEEN OF HEARTS 
ACE OF SPADES 


To shuffle a larger deck, change just lines 10 and 20. 
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ALPHABETIZING 
Here are a dozen names: Sue, Ann, Joe, Alice, Ted, Jill, Fred, Al, Sam, Pat, Sally, 
Mike. Let's make the computer alphabetize them. 
To begin, put the list of names into a DATA statement: 


10 DATA SUE,ANN,JOE,ALICE,TED,JILL,FRED,AL,SAM,PAT,SALLY ,MIKE 
We have 12 names: 
20 N=12 


Let Sue be called X$(1), Ann be called X$(2), Joe be called X$(3), ete. Here's 
how: 


30 DIM XS(N) 
40 FOR I = 1 TO N: READ XS$(I): NEXT 


Alphabetize the names, by using the following strategy. . . . Compare the first 
name against the second; if they're not in alphabetical order, swap them. Compare 
the second name against the third; if they're not in alphabetical order, swap them. 
Compare the third name against the fourth; if they're not in alphabetical order, swap 
them. Continue that process, until you finally compare the last two names. But each 
time you swap, you must start the whole process over again, to make sure the 
preceding names are still in alphabetical order. Here's the code: 


SOS FOR Lat O UNS 
60 IF X$(1)>X$CI+1) THEN SWAP X$(1I),X$(I+1): GO TO 50 
70 NEXT 


Finally, print the alphabetized list: 
80 FOR I = 1 TO N: PRINT X$(I): NEXT 
The computer will print: 


AL 
ALICE 
ANN 
FRED 
JILL 
JOE 
MIKE 
PAT 
SALLY 
SAM 
SUE 
TED 


Putting words in alphabetical order—or putting numbers in numerical order—is 
called sorting. In the program above, the sorting occurs in lines 50-70. Those three 
short lines are called the Short Three-Line Sort. 

In the Short Three-Line Sort, lines 50-70 form a loop. The part of the loop that 
the computer encounters the most often is the phrase "IF X$(1) >X$(I+1)". In fact, if 
you tell the computer to alphabetize a list of names that's long (several hundred 
names), the computer spends the majority of its time repeatedly handling "IF 
X$(1) >X$(1+1)". 
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How long will the computer require, to handle a long list of names? The length of 
time depends mainly on how often the computer encounters the phrase "IF 
X$(1) >X$(I+1)". If the list contains N names, the number of times that the computer 
encounters the phrase "IF X$(I)>X$(I+1)" is approximately N*/8. Here are some 
examples: 


N (number of names) N3/8 (approximate number of encounters) 
10 125 
12 216 
20 1,000 
40 8,000 
100 125,000 
1,000 125,000,000 
10,000 125,000,000,000 


For example, the chart says that a list of 12 names requires approximately 216 
encounters. The 216 is just an approximation: the exact number of encounters 
depends on which list of names you're trying to alphabetize. If the list is nearly in 
alphabetical order already, the number of encounters will be less than 216; if the list 
is in reverse alphabetical order, the number of encounters will be more than 216; but 
if the list is typical (not yet in any particular order), the number of encounters will 
be about 216. For the list that we tried (Sue, Ann, Joe, Alice, Ted, Jill, Fred, Al, 
Sam, Pat, Sally, Mike), the exact number of encounters happens to be 189, which is 
close to 216. 

How much time will your computer require, to finish sorting? The amount of time 
depends on which brand of computer you have, how many names are in the list, and 
how long each name is. A typical microcomputer (handling a list of typical names) 
requires .01 seconds per encounter. Multiplying the number of encounters by .01 
seconds, you get: 


Number of names Encounters Time 

10 125 1.25 seconds 

bZ 216 2.16 seconds 

20 1,000 10 seconds 

40 . 8,000 80 seconds = 1.3 minutes 

100 125,000 1,250 seconds = 20.8 minutes 
1,000 125,000, 000 1,250,000 seconds = 14.4 days 
10,000 125,000,000, 000 1, 250,000,000 seconds = 39.6 years 


Moral: never let a 70-year-old programmer alphabetize a list of 10,000 names by 
using the Short Three-Line Sort—because when the computer finishes running the 
program (39.6 years later), the programmer will probably be dead! 

In the Short Three-Line Sort, the end of line 60 says "GO TO 50". For an 
interesting experiment, replace the "GO TO 50" by "IF I>1 THEN I=I-1: GO TO 60", 
so that line 60 looks like this: 


60 LF X$C(I)>X$(I+1) THEN SWAP X$(I),X$(I+1): IF I>1 THEN I=I-1: GO TO 60 


Even though that new, fancy version of line 60 is longer to type than the 
original, the computer handles it more quickly, because it tells the computer to GO 
TO line 60 instead of forcing the computer to go all the way back to line 90. The 
fancy version is called the Fancy Three-Line Sort. 


IN 
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If you feed the computer the Fancy Three-Line Sort (instead of the Short 
Three-Line Sort), the computer encounters the "IF X$(I)>X$(I+1)" less often. For 
the Fancy Three-Line Sort, the number of encounters is N?/2 (instead of N3/8): 


Number of names Encounters (N2 /2) Time . 

10 50 .5 seconds 

12 U2 6.72 seconds 

20 200 2 seconds ‘ 

40 800 8 seconds 

100 5, 000 50 seconds 
1,000 500, 000 5,000 seconds = 1.4 hours 
10,000 50,000, 000 500,000 seconds = 5.8 days 


Now you can hire the 70-year-old programmer: to alphabetize 10,000 names, he'll 
need just 5.8 days instead of 39.6 years. By changing just the end of line 60, we 
saved almost 40 years of computer time—and the programmer's job! 

To reduce the time even further, use the Super-Fancy Three-Line Sort instead, 
which is: 

S07 RORS esas COINS 


60 FOR J = I TO 1 STEP -1: IF X$(J)>X$CJ+1) THEN SWAP X$(J),X$(J+1): NEXT 
70 NEXT I 


When typing the Super-Fancy Three-Line Sort, make sure you type line 60 
correctly: you must put the IF on the same line as the NEXT. In line 70, make sure 
you put the "I" after NEXT; otherwise, the computer might think you mean NEXT J. 
For the Super-Fancy Three-Line Sort, the number of times the computer encounters 
the phrase "IF X$(J)>X$(J+1)" is only N2/4: 


Number of names . Encounters (N?2/4) Time 

10 25 .25 seconds 

12 36 .36 seconds 

20 100 1 second 

40 400 4 seconds 

100 2,500 25 seconds 
1,000 250, 000 2,500 seconds = 41.7 minutes 
10,000 25,000,000 250,000 seconds = 2.9 days 


To reduce the time even further, use the Six-Line Sort instead. To construct the 
Six-Line Sort, begin with the Super-Fancy Three-Line Sort, but change each +1 to 
+D, and change each -1 to -D, so that you get: 


50 FOR I = 1 TO N-D 


60 FOR J = I TO 1 STEP -D: IF X$(J)>X$(J+D) THEN SWAP X$(J),X$(J+D)=: NEXT - 
70 NEXT I | 

D begins by being N— 

42 D=N 


but then decreases, so that it becomes a fifth of its original value: 
44 D=INT(D/5) +1 


After performing lines 50-70 for that D, check whether D is down to 1 yet; if it isn't, 
repeat the process: 


75 IF D>1 THEN GO TO 44 


So altogether, the complete Six-Line Sort looks like this: 
42 D=N qi 
44 D=INT(D/5) +1 
50 FOR I = 1 TO N-D 


60 FOR J = I TO 1 STEP -D: IF X$CJ)>X$CJ+D) THEN SWAP X$(J),X$(J+D): NEXT 
7O NEXT I 


(5 IF D>1 THEN GO TO 44 
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For the Six-Line Sort, the number of times the computer encounters the phrase 
"IF X$(J5)>X$(J+D)" is only (3/2) *(N-1)4(4/3): 


Number of names Encounters: Time 
10 28 .28 seconds 
a 37 .37 seconds 
20 76 .76 second 
40 198 1.98 seconds 
100 687 6.87 seconds 
1,000 14, 980 | 149.8 seconds = 2.5 minutes 
10, 000 S25 s2e 3,231.22 seconds = 53.9 minutes 


If the number of names is 10,000, the Six-Line Sort runs much faster than the 
Super-Fancy Three-Line Sort: the Six-Line Sort takes 53.9 minutes instead of 2.9 
days. But if the number of names is just 10, the Six-Line Sort does not run faster 
than the Super-Fancy Three-Line Sort. So use the Six-Line Sort only if the number 
of names is large. 

To make the Six-Line Sort even faster, add this line: 


1 DEFINT A-Z 


That tells the computer that none of the variables stands for a decimal. By saying 
DEFINT A-Z, you enable the computer to run the program 20% faster, so that the 
timing looks like this: 


Number of names Time 

10 .2 seconds 

12 .3 seconds 

20 .6 second 

40 1.6 seconds 

100 5.5 seconds 
1,000 120 seconds = 2 minutes 
10,000 2,580 seconds = 43 minutes 


We've sure come a long way! Our first attempt (the Short Three-Line Sort) took 
39.6 years to alphabetize 10,000 names; our newest attempt (the Six-Line Sort with 
DEFINT) takes just 43 minutes. 

Although I "invented" all those sorting methods, most of them are just slight 
improvements on methods that were developed by others. For example, the 
Super-Fancy Three-Line Sort is a slight improvement on the Shuttle Sort, which was 
invented by Shaw & Trimble in 1983. The Six-Line Sort is a slight improvement on 
the Shell Sort, which was invented by Donald Shell in 1959 and further developed by 
Hibbard & Boothroyd in 1963, Peterson & Russell in 1971, and Knuth in 1973. 

If you try running those sorting methods on your own computer, you'll find the 
timings are slightly different, since the exact timings depend on which computer you 
have and which names you're alphabetizing. 


SSS 
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Problem: write a program that alphabetizes a phone directory. 
Solution: suppose you want to alphabetize this little phone directory. .. . 


Name Phone number 
Mary Smith 277-8139 
John Doe 513-9134 
Russ Walter 666- 2666 
Information 555-1212 


Use one of the alphabetizing programs. Type the DATA like this: 


10 DATA SMITH MARY 277-8139,D0E JOHN 513-9134 
20 DATA WALTER RUSS 666-2666,INFORMATION 555-1212 


The computer will print: 


DOE JOHN 513-9134 

INFORMATION 555-1212 
SMITH MARY 277-8139 
WALTER RUSS 666-2666 


Problem: write a program that puts a list of numbers into increasing order. For 
example, if the numbers are 51, 4.257, -814, 62, and .2, make the computer 
DLIntst Gee 


-814 


Solution: use one of the alphabetizing programs; but in the DATA statement, put 
the numbers instead of strings; and remove the dollar signs (say X instead of X$). 
Problem: write a program that puts a list of numbers into decreasing order. 

Solution: write a program that puts the list of numbers into increasing order; but 
in line 60, change ">X" to "<X". 


(176) 


GOING ON 


ON eee GOu 1.0 
In your program, you can say: 


50 ON N GO TO 80,100,20,350 


That means: go to either 80, 100, 20, or 350; the decision depends on what N is. In 
other words: 


Pe NS GO 10, OU; 
If N is 2, go to 100. 
BNL Sa3, GO .t0. 20, 
If N is 4, go to 350. 


In that example, if Nis not 1, 2, 3, or 4, the computer will not go to line 80 or 100 
or 20 or 350; instead, the computer will proceed to the line underneath line 50 (which 
is probably line 60). 

Exception: if N is greater than 255 or a negative number (such as -1), the 
computer thinks you're crazy, and so the computer gripes at you instead of 
proceeding to line 60. 

Another exception: if N is a decimal (such as 3. 1), the computer treats N as if it 
were a whole number (3); soin that example, if N is 3.1, the computer will go to line 
20. 

Christmas. Remember the Christmas carol called "The Twelve Days of 
Christmas"? The first three verses go line this: 


ON THE FIRST DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME 
A PARTRIDGE IN A PEAR TREE. 


ON THE SECOND DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME 
TWO TURTLE DOVES...AND 
A PARTRIDGE IN A PEAR TREE. 


ON THE THIRD DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME 
THREE FRENCH HENS, 

TWO TURTLE DOVES...AND 

A PARTRIDGE IN A PEAR TREE. 


This program prints the final verse: 


10 PRINT "ON THE TWELFTH DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME" 
20 PRINT "TWELVE DRUMMERS DRUMMING," : 
30 PRINT "ELEVEN PIPERS PIPING," 

40 PRINT "TEN LORDS A-LEAPING," 

50 PRINT "NINE LADIES DANCING," 

60 PRINT "EIGHT MAIDS A-MILKING," 

70 PRINT "SEVEN SWANS A-SWIMMING," 
80 PRINT "SIX GEESE A-LAYING," 

90 PRINT "FIVE GO---OLD RINGS," 

100 PRINT ''FOUR CALLING BIRDS," 

110 PRINT "THREE FRENCH HENS," 

120 PRINT ''TWO TURTLE DOVES...AND" 
1430 PRINT "A PARTRIDGE IN A PEAR TREE." 


(177) Advanced BASIC: going on 


This program prints all twelve verses: 


>>1 DATA FIRST,SECOND, THIRD, FOURTH, FIFTH,SIXTH,SEVENTH,EIGHTH,NINTH 
>>2 DATA TENTH,ELEVENTH, TWELFTH 
aS FOR Vi, =) (1. 20242 


+h READ W$ 
+10 PRINT "ON THE ";W$;" DAY OF CHRISTMAS, MY TRUE LOVE SENT TO ME" 
11 ON V GO TO 130,120,110,100,90,80,70,60,50,40,30,20 
20 PRINT "TWELVE DRUMMERS DRUMMING," 
30 PRINT "ELEVEN PIPERS PIPING," 
40 PRINT "TEN LORDS A-LEAPING," 
50 PRINT "NINE LADIES DANCING," 
60 PRINT "EIGHT MAIDS A-MILKING," + VA 
70 PRINT "SEVEN SWANS A-SWIMMING," 
80 PRINT "SIX GEESE A-LAYING," SY 
90 PRINT "FIVE GO---OLD RINGS," 


100 PRINT ''FOUR CALLING BIRDS," 

110 PRINT "THREE FRENCH HENS," 

120 PRINT ''TWO TURTLE DOVES...AND"' 

130 PRINT "A PARTRIDGE IN A PEAR TREE." 
>+140 PRINT 
>>150 NEXT 


Lines 1 and 2 teach the computer how to spell the words "FIRST", "SECOND", 
"THIRD", ete. Line 3 makes the computer do lines 4 through 140, twelve times (once 
for each verse). Lines 4 and 10 look at the data and print the top line of the verse. 


Line 11 says: 


e 


If V is 1, go to line 130 (so the computer prints A PARTRIDGE IN A PEAR TREE). 
If V is 2, go to line 120 (so the computer prints TWO TURTLE DOVES...AND A 


PARTRIDGE IN A PEAR TREE). 


If V is 3, go to line 110 (so the computer prints THREE FRENCH HENS, TWO 


TURTLE DOVES...AND’A PARTRIDGE IN A PEAR TREE). 


And so on, for each verse. 


ON ... GOSUB 


You can say: 
50 ON N GOSUB 80,100,20,350 
That means: . 


If N is 1, GOSUB 80. 
If Nis 2, GOSUB 100. 
If N is 3, GOSUB 20. 
If N is 4, GOSUB 350. 
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ON ERROR GO TO 
If the computer finds an error while running your program, the computer wants to 
gripe. But instead of letting the computer gripe, you can force the computer to do 
something different. 
For example, you can tell the computer, "If you find an error in lines 50-70, don't 
gripe; instead of griping, do the special routine that begins at line 1000." To tell the 
computer that, insert these lines: 


49 ON ERROR GO TO 1000 
71 ON ERROR GO TO O 


Lines 49 and 71 say: if you find an error between lines 49 and 71, go to the special 
routine that begins at line 1000. 

Invent your own special routine, so that it begins at line 1000 and continues onto 
lines 1010, 1020, etc. 

The bottom line of your special routine should tell the computer where to go 
afterwards. For example, suppose that after the routine is done, you want the 
computer to go back to line 30 (to try again); just put this line at the bottom of the 
routine: 


1090 RESUME 30 


That way, if an error occurs between lines 49 and 71, the computer will do the 
routine in lines 1000-1080, then come to line 1090, which sends the computer back to 
line 30. 

The special routine (in lines 1000-1090) is called an error-handling routine or an 
error trap. Its bottom line says RESUME. (By contrast, the bottom line of an 
ordinary subroutine says RETURN instead.) 

To separate the main routine (lines 10-999) from the error-handling routine 
(lines 1000-1090), the bottom line of the main routine should say END, like this: 


999 END 


Instead of saying RESUME 30, which sends the computer back to line 30, you can 
send the computer back to any other line you wish. For example, you can say 
RESUME 80. 

If you don't put any number after RESUME, the computer will go back to the line 
that contained the error. 

If you say RESUME NEXT, the computer will go to the line underneath the line 
that contained the error. To make RESUME NEXT work properly, the line that 
contained the error should consist of just one statement (instead of statements 
separated by colons). 


fo yy 
ASF 
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DATA FILES 


SEQUENTIAL FILES 
This program makes the computer print a message on your screen: 


10 PRINT "EAT" 
20 PRINT 2+2 
30 PRINT "EGGS" 


The computer will print: 


EAT 
4 
EGGS 


This program prints that message onto your disk, instead of onto your screen: 


5 OPEN "SUE" FOR OUTPUT AS 1 
10 PRINT#1, "EAT" 

20 PRINTH1, 2+2 

30 PRINT#1, "EGGS" 

40 CLOSE 


Lines 10-30 make the computer print the message onto your disk, instead of onto 
your screen. Each line begins with which means: print onto the disk. 

Line 5 is an introductory line that tells the computer where on the disk to print 
the message. Line 5 says: find a blank place on the disk, call it "SUE", and make 
"SUE" be file#1. So will mean: print onto file#1, which is SUE. 

Any program that says OPEN should also say CLOSE, so line 40 says CLOSE. The 
CLOSE line makes the computer put some "finishing touches" on SUE, so that SUE 
becomes a perfect, finished file. 

When you RUN that program, the computer will automatically put onto the disk a 
file called "SUE" that contains this message: 


EAT 
4, 
EGGS 


After you run the program, you can see the names of all the files on the disk, by 
typing FILES (or DIRECTORY or CATALOG or whatever other word your computer 
uses). The computer will print the names of all the files—and one of the names it 
prints will be SUE. 
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To see the message that's in SUE, run this program, which inputs from SUE and 
prints onto your screen: 


5 OPEN "SUE" FOR INPUT AS 1 


10 INPUTH#1, A$ 
11 PRINT A$ 


20 INPUT#1, B 
21 PRINT B 


30 INPUT#1, C$ 
31 PRINT CS 


40 CLOSE 


Line 5 prepares the computer to input from SUE. 

Line 10 inputs A$ from SUE, so A$is EAT. Line 11 prints EAT onto your screen. 

Line 20 inputs B from SUE, so B is 4. Line 21 prints 4 onto your screen. 

Line 30 inputs C$ from SUE, so C$ is EGGS. Line 31 prints EGGS onto your 
sereen. So altogether, on your screen you'll see: 


EAT 
‘a 
EGGS 


Line 40 tells the computer that you're done using SUE for a while (until you say 
OPEN again). 

Appending. After you've put SUE on the disk, so that SUE consists of EAT and 4 
and EGGS, try running this program: 


40 OPEN "SUE" FOR APPEND AS 1 
20 PRINT#1, ''GOOD MORNING!" 
30 CLOSE 


In line 10, the word APPEND tells the computer to keep adding onto SUE. So when 
the computer comes to line 20, it adds "GOOD MORNING!" onto SUE, and SUE 
becomes this: 


EAT 
a 
EGGS 
GOOD MORNING! 


Erasing. Next, try running this program: 


10 OPEN ''SUE" FOR OUTPUT AS 1 
20 PRINT#H1, "PICKLES ARE PLEASANT" 
30 CLOSE 


Since line 10 does not say APPEND, the computer will not keep adding onto SUE; 
instead, the computer erases everything that's been in SUE. So when the computer 
finishes processing line 10, SUE has become blank. Line 20 puts "PICKLES ARE 
PLEASANT" into SUE. So at the end of the program, SUE includes "PICKLES ARE 
PLEASANT", but SUE does not include EAT and 4 and EGGS and "GOOD 
MORNING!", which have all been erased. 
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All your friends. This program lets you put the names of all your friends onto the 
disk: 


10 OPEN "FRIENDS" FOR OUTPUT AS 1 

20 PRINT "PLEASE TYPE A FRIEND'S NAME (OR THE WORD 'END')" 
30 INPUT FS: IF FS$=""END'’ THEN CLOSE: END 

40 PRINT#1, FS 

50 GO TO 20 


Line 10 makes the computer find a blank space on the disk and call it FRIENDS. 
Line 20 makes the computer print: 


PLEASE TYPE A FRIEND'S NAME (OR THE WORD 'END') 


Line 30 prints a question mark and waits for you to type something; whatever you | 


type will be called F$. For example, if you type JOAN WILLIAMS, then F$ will be 
JOAN WILLIAMS, and line 40 prints the name JOAN WILLIAMS onto the disk. 

Line 50 creates a loop, so that you can type as many names as you wish. 
(Remember to press the ENTER key after each name.) 

When you've finished typing the names of all your friends, type the word END. 
Then the last part of line 30 will make the computer CLOSE the file and END the 
program. 

This program makes the computer look at the FRIENDS file and copy all its names 
to your screen: 


10 OPEN "FRIENDS" FOR INPUT AS 1 

20 IF EOF(1) THEN PRINT "THOSE ARE ALL THE FRIENDS": CLOSE: END 
30 INPUT#1, FS 

40 PRINT FS 

50 GO TO 20 


Line 10 prepares the computer to input from the FRIENDS file. Line 20 is special; 
I'll explain it later. Line 30 makes the computer input a string from the file and call 
the string F$; so F$ becomes the name of one of your friends. Line 40 prints that 
friend's name onto your screen. Line 50 creates a loop, so that the names of a// your 
friends are printed on the screen. 

Eventually, the computer will reach the end of the file, and there won't be any 
more names to input from it. Line 20 says: if the computer reaches the End Of the 
File and can't input any more names from it, the computer should print on your 
screen "THOSE ARE ALL THE FRIENDS", then CLOSE the file and END the program. 

LOF. In the middle of your program, if you say PRINT LOF(1), the computer will 
tell you the Length Of the File: it will tell you how many bytes are in the file. 

Multiple files. If you want the computer to handle two files simultaneously, use 
two OPEN statements. At the end of the first OPEN statement, say "AS 1"; at the end 
of the second OPEN statement, say "AS 2". For the second file, say PRINT #2 instead 
of PRINT#1, INPUT#2 instead of INPUT#1, EOF(2) instead of EOF(1), and LOF(2) 
instead of LOF(1). 

How to CLOSE. The CLOSE statement closes all files. To be more specific, you 
can say CLOSE 1 (which closes just the first file) or CLOSE 2 (which closes just the 
second). 

Whenever you're done using a file, CLOSE it immediately. When you say CLOSE, 
the computer puts finishing touches on the file that protect the file against damage. 

Suppose that halfway through your program, you finish using file 2 but want to 
continue using file 1. Say CLOSE 2 there, and delay saying CLOSE 1 until later. 
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RANDOM ACCESS 
On a disk, you can store two kinds of data files. The simple kind is called a 
sequential-access data file; the complicated kind is called a random-access (or 
relative-access or direct-access) data file. You've already learned how to create and 
retrieve a sequential-access file. Now let's look at random-access. 

Though more complicated than sequential-access data files, random-access data 
files have an advantage: they let you skip around. In a sequential-access data file, 
you must look at the first item of data, then the second, then the third, etc. In a 
random-access data file, you can look at the seventh item of data, then skip directly 
to the tenth, then hop back to the third, then skip directly to the sixth, etc. 

Each item is called a record. The number of characters (bytes) in the record is 
called the record's /Jength. For example, if a record contains 30 characters, the 
record's length is 30. In a random-access file, all the records must have the same 
length as each other. | 

Let's create a random-access file called JIM. Let's make JIM's record length be 
20, so that each record will contain 20 characters. Here's how: 


5 OPEN "JIM'' AS 1 LEN=20: FIELD 1, 20 AS X$ 


Let's make JIM's 7th record be "LOVE MAKES ME GIGGLE" (which contains 20 
characters): 


10 LSET X$=""LOVE MAKES ME GIGGLE": PUT 1,7 
Let's make JIM's 9th record be "PLEASE HOLD MY HAND": 
20 LSET X$=''PLEASE HOLD MY HAND'': PUT 1,9 


Since JIM's record length is supposed to be 20 characters but "PLEASE HOLD MY 
HAND" contains just 19 characters, the computer will automatically add a blank to 
the end of "PLEASE HOLD MY HAND". 

Let's make JIM's 4th record be "I LOVE LUCY": 


30 LSET X$=""I LOVE LUCY'': PUT 1,4 


The computer will automatically add blanks to the end of "I LOVE. LUCY". 
To finish the program, say: 


40 CLOSE 
This program makes the computer tell you JIM's 7th item: 


5 OPEN "JIM" AS 1 LEN=20: FIELD 1, 20 AS X$ 
10 GET 1,7: PRINT X$ 
20 CLOSE 


If you want each record to be a pair of strings, begin like this: 


S OPEN "JIM" AS 1 LEN=34: FIELD 1, 30 AS X%, 4 AS YS 
10 LSET X$=""LOVE MAKES ME GIGGLE": LSET VS=U WOW!" s: PUT 17 
etc. 


LOC. While using a random-access file, if you say PRINT LOC(1), the computer 
tells you which record it just dealt with: it tells you the record LOCation. For 
example, if you say "PUT 1,7" or "GET 1,7" and then say PRINT LOC(1), the 
computer prints the number 7. 

If you say "PUT 1" instead of "PUT 1,7", the computer will assume you mean 
"PUT 1,LOC(1)+1". If you say "GET 1", the computer will assume you mean "GET 
LOC CIA. 
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End of the file. The EOF function doesn't work well for random-access files. To 
deal with the end of the file, use the following trick instead. 

Suppose you say LEN=34, so that 34 bytes make a record. Since the number of 
bytes in the entire file is LOF(1), and 34 bytes make a record, the number of records 
in the file is LOF(1)/34. These lines print all the records: | 


100 FOR I = 1 TO LOF(1)/34 


110 GET'1: PRINT X$;Y$ 
120 NEXT 

Restricted variables. If you put a variable (such as X$) into a FIELD statement, 
you cannot put it into an ordinary "=" statement: instead of saying X$="LOVE 


MAKES ME GIGGLE", you must say LSET X$="LOVE MAKES ME GIGGLE". You cannot 
put the variable into an INPUT statement: instead of saying INPUT X$, you must say 
INPUT A$ and then LSET X$=A$. 

Numbers. On most computers, a random-access file must contain strings, not 
numbers. If you want to store numbers, you must turn them into strings. 

To turn an integer into a string, use the function MKI$ (MaKe from Integer). It 
turns the integer into a 2-byte string, even if the integer is long. For example, to 
turn the integer 17999 into a 2-byte string called X$, say FIELD 1, 2 AS X$ and say 
LSET X$=MKI$(17999). 

The function MKS$ (MaKe from Single-precision real) turns a real number into a 
4-byte string. The function MKD$ (MaKe from Double-precision) turns a 
double- precision number into an 8-byte string. 

Suppose you turn a number into string (by using MKI$, MKS$, or MKD$), and 
PUT the string into a file, and later GET the string back from the file. You'll want to 
convert the string back to a number. Use the function CVI (ConVert to Integer) or 
CVS (ConVert to Single-precision) or CVD (ConVert to Double-precision). For 
example, if X$ is a 2-byte string that stands for an integer, you can make the 
computer print the integer by saying PRINT CVI(X$). 


CREATE A DATA BANK 
The following program creates a data bank. In the data bank, you can store 
information about love, death, your friends, your enemies, your business, 
birthdays, bills, appointments, and whatever else bothers you. After storing the 
information in the data bank, you can peek at the information, change it, expand on 
it, delete it, or do whatever else strikes your fancy. 
The program consists of a main routine and 7 subroutines: 


The main routine 

All variables will be integers. 10 DEFINT A-Z 

Allow 100 topics & their data. 20 DIM T$(100) ,D$(100) 
Number of topics starts at 0. 30 N=0 


Ask the human for a topic. 40 PRINT: PRINT "WHAT TOPIC INTERESTS YOU?": PRINT 
"CIF YOU'RE NOT SURE, TYPE A QUESTION MARK)'': LIN 
E INPUT TS 

Do what the human wishes. 50 IF TS$="'"?" THEN GOSUB 1000 ELSE GOSUB 2000 

Go to another topic. 60 GO TO 40 


Subroutine 1000: tell the human what topics are in the data bank 

If data bank's empty, say so. 1000 IF N=0 THEN PRINT ''I DON'T KNOW ANY TOPICS YE 
T.'': PRINT "MY MIND IS STILL BLANK.'': PRINT ''PLEAS 
E TEACH ME A NEW TOPIC.": RETURN 

If not empty, list the topics. 1010 PRINT "I KNOW ABOUT THESE TOPICS:": FOR I = 1 
TO N: PRINT TSCI),: NEXT I: PRINT: PRINT "'PICK ON 
E OF THOSE TOPICS, OR TEACH ME A NEW ONE." 
1020 RETURN 
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Subroutine 2000: search through the data bank, to find the topic TS 


Start searching. 2000 FOR I = 1 TON 

If topic is found, do 3000. 2010 IF TS$=TSC(I1) THEN GOSUB 3000: RETURN 
If not found yet, try again. 2020 NEXT 

If never found, do 4000. 2030 GOSUB 4000 


2040 RETURN 
Subroutine 3000: the topic is in the data bank 


Tell human about the topic. 3000 PRINT "HERE'S WHAT I KNOW ABOUT "'T$'"':": PRINT 
D$(I) 

Ask whether to change info. 3010 INPUT "DO YOU WANT TO CHANGE THAT INFORMATION 
SAS 


If human says yes, do 5000. 3020 IF A$="YES" OR A$="Y"' THEN GOSUB 5000 
3030 RETURN 


Subroutine 4000: the topic is not in the data bank 
Say topic is notin data bank. 4000 PRINT "I DON'T KNOW ANYTHING ABOUT ET rats 
Request info about the topic. 4010 PRINT: PRINT "TELL ME ABOUT Ss PRINT acl ery 
OU DON'T WANT TO TELL ME, TYPE THE LETTER X)"': LIN 
E INPUT DS 
If human wants, insert topic. 4020 IF D$<>''X'"' THEN GOSUB 6000 
4030 RETURN 


Subroutine 5000: change the information 


Agree to change the info. 5000 PRINT “OKAY. I'VE ERASED THAT INFORMATION ABO 
EARN ite sere 
Request new info. 5010 PRINT: PRINT ''TYPE WHAT YOU WANT ME TO KNOW A 


BOUT 'T$: PRINT "CIF YOU WANT ME TO FORGET "TS", T 
YPE THE LETTER X)": INPUT DS 

Change info as requested. 5020 IF D$="'X'' THEN GOSUB 7000 ELSE D$(I)=D$ 
5030 RETURN 


Subroutine 6000: insert the topic into the data bank 
Increase number of topics. 6000 N=N+1 


Append new topic & its data. 6010 TS(N)=T$: DS(N)=DS 
6020 RETURN 


Subroutine 7000: delete the topic from the data bank 
Replace it by topic #N. 7000 TSC(I)=TS(N): DSCI)=DSCN) 
Decrease number of topics. 7010 N=N-1 

7020 RETURN 


If your computer doesn't understand DEFINT, omit line 10. If your computer 
doesn't understand LINE INPUT, omit the word LINE from lines 40 and 4010. 

The program stores the topics in chronological order: if you begin by feeding it 
information about SUE and then information about CAROL, it will let T$(1) be SUE 
and let T$(2) be CAROL. 

Instead of chronological order, you might prefer alphabetical order. For 
example, suppose you feed the computer information about SUE then CAROL then 
ZELDA then ALICE then JANE. Here's what the computer's memory would look like, 
in each kind of order: 


Chronological order Alphabetical order 


SUE ALICE 
CAROL CAROL 
ZELDA JANE 
ALICE SUE 
JANE : ZELDA 
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Which is better: chronological order or alphabetical order? 

Chronological order lets you quickly add a new name (just add it at the end of the 
list), but finding a name in the list is slow (since the list looks disorganized). 
Alphabetical order lets you find a name more quickly (since the list is alphabetized) , 
but adding a new name to the alphabetized list is slow (since the only way to insert 
the new name is to shove other names out of the way, to make room for it). 

So which is better? 


Chronological order is the simplest to program and the fastest for inserting. 
Alphabetical order is the fastest for finding information. 


If you want to store the names in alphabetical order instead of chronological 
order, just change subroutines 2000, 6000, and 7000 to these: 


Subroutine 2000A: search through the data bank, to find the topic TS 


Create L and H. 2000 L=0: H=N+1 

I is the average of Land H. 2010 I=INT((L+H+1) /2) 

If I=H, do 4000. 2020 IF I=H THEN GOSUB 4000: RETURN 

If topic is found, do 3000. 2030 IF T$=TS(I1) THEN GOSUB 3000: RETURN 


Not found yet. Change H or L 2040 IF TS<TS$(I) THEN H=I ELSE L=I 
and try again to find topic! 2050 GO TO 2010 


Subroutine 6000A: insert the topic into the data bank 
Increase number of topics. 6000 N=N+1 


Move other topics out of way. 6010 FOR J = N TO I+1 STEP -1: TS(J)=TSCJ-1): DSC 
)=D$(J-1): NEXT 

Insert new topic & its data. 6020 TSCI)=T$: DSC(I)=DS 
6030 RETURN 


Subroutine 7000A: delete the topic from the data bank 


Decrease number of topics. 7000 N=N-1 . 
Close gap from deleted topic. 7010 FOR J = 1 TON: TSCJJ=TS(J4+1): DSCJ=DSCJ41): 
NEXT 


7020 RETURN 


Subroutine 2000A runs faster than chronological subroutine 2000, because 
searching through an alphabetical list is faster than searching through a 
chronological list. (To search through the alphabetical list super-quickly, 
subroutine 2000A uses a trick called binary search.) 

Unfortunately, subroutines 6000A (which inserts) and 7000A (which deletes) run 
slower than chronological subroutines 6000 and 7000. To get the high speed of 
subroutine 2000A, you must accept the slowness of subroutines 6000A and 7000A. 

You've seen that chronological order is fast for inserting and deleting but slow 
for searching, whereas alphabetical order is exactly the opposite: it's fast for 
searching but slow for inserting or deleting. 

- Instead of using chronological order or alphabetical order, advanced 
programmers use a tree. Like chronological order, a tree lets you insert and delete 
quickly. Like alphabetical order, a tree lets you search quickly also. 

Poets say, "only God can make a tree". Does that mean advanced programmers 
are God? 

To learn how to make a tree, begin by sketching a picture of a tree on paper. 
Since N is the alphabet's middle letter, begin by writing the letter N, and put two 
arrows underneath it: | 


pefore te, 
The left arrow is called the before-arrow; it will point to the names that come 


alphabetically before N. The right arrow is called the after-arrow; it will point to the 
names that come alphabetically after N. 
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For example, suppose your first topic is SUE. Since SUE comes alphabetically 
after N, put SUE at the tip of N's after-arrow: 


piacere 


Suppose your next topic is CAROL. Since CAROL comes alphabetically before N, 
put CAROL at the tip of N's before-arrow: 


CAROL SUE 


Suppose your next topic is ZELDA. Since ZELDA comes after N, we'd like to put 
ZELDA at the tip of N's after-arrow; but SUE's already stolen that position. So 
compare ZELDA against SUE. Since ZELDA comes after SUE, put ZELDA at the tip of 
SUE's after-arrow: 


CAROL SUE 


Suppose your next topic is ALICE. Since ALICE comes before N, look at the tip of 
N's before-arrow. Since CAROL's stolen that position, compare ALICE against 
CAROL; since ALICE comes before CAROL, put ALICE at the tip of CAROL's 
before-arrow: 


Suppose your next topic is JANE. Since JANE comes before N, look at the tip of 
N's before-arrow. Since CAROL's stolen that position, compare JANE against 
CAROL: since JANE comes after CAROL, put JANE at the tip of CAROL's 
after-arrow: 


CAROL SUE 


ALICE Oe ZELDA 
un Py 
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If the next few topics are FRED, then LOU, then RON, then BOB, the tree looks 
like this: : 


N 


oe \ 
ae Ro 
BOB His TN /\ i 


Look at the arrows that point down from N. N's before-arrow points to the group of ‘ 
names that come alphabetically before N (such as CAROL, ALICE, JANE, BOB, : 
FRED, and LOU); N's after-arrow points to the group of names that come. ’ 
alphabetically after N (such as SUE, RON, and ZELDA). Similarly, CAROL's 
before-arrow points to the group of names that come alphabetically before CAROL 
(such as ALICE and BOB); CAROL's after-arrow points to the group of names that 
come alphabetically after CAROL (such as JANE, FRED, and LOU). 

Programmers treat the tree as if it were a "family tree". CAROL is called the 
parent of ALICE and JANE, who are therefore called CAROL's children. CAROL is 
called the ancestor of ALICE, JANE, BOB, FRED, and LOU, who are therefore called 
CAROL's descendants. The arrows are called pointers. ‘ 

To make the tree more useful, begin with "N !" instead of "N" (so that you can } 
choose "N" as a topic later), and number the topics in the order they appeared: ¥ 
since SUE was the first topic, put "1" in front of SUE; since CAROL was the second 
topic, put "2" in front of CAROL; since ZELDA was the third topic, put "3" in front 
of ZELDA, like this: 


2CAROL 


eo, E 8RO ZELDA } 


"ALICE 


e 


To describe the tree to the computer, store this table in the computer's memory: 


Otago eee 


Topic Where the before-arrow points Where the after-arrow points 

N ! 2 1 R 
ISUE 8 3 ; 
2 CAROL 4 5 
3ZELDA 0 0 ; 
ALICE 0 9 j 
> JANE 6 7 % 
° FRED 0 0 
7LOU 0 0 y 
SRON 0 0 i 
°BOB 0 0 


That table represents the tree. That table is called the tree's representation. 

The table's left column is in chronological order, but the other columns give 
information about alphabetizing. So a tree combines chronological order with 
alphabetical order: it combines the advantages of both. Adding a new topic to the 
tree is quick and easy (as in chronological order): just add the name to the bottom of 
the list, and adjust a few arrows. Using the tree to search for a topic is quick and 
easy (as in alphabetical order): just follow the arrows. 
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The program that creates and manipulates the tree uses the same subroutines 
1000, 3000, 4000, and 5000 as the chronological program (and alphabetical program). 
To create the tree, change the main routine and subroutines 2000, 6000, and 7000. 
You must also add a new subroutine (8000). Here are those new routines: 


‘The main routine T 
All variables will be integers. 10 DEFINT A-Z 
Allow 100 topics, data, ete. 20 DIM T$(100) ,D$(100) ,P(100,2) 


Topic #0 is "N !", 30 TS(O)="N !": PCO,1)=0: P(O,2)=0 
Number of real topics is 0. 40 N=0 
Ask the human for a topic. 50 PRINT: PRINT ''WHAT TOPIC INTERESTS YOU?": PRINT 
"CIF YOU'RE NOT SURE, TYPE A QUESTION MARK)": LIN 
E INPUT T$ 
Do what the human wishes. 60 IF T$="?" THEN GOSUB 1000 ELSE GOSUB 2000 
Go to another topic. 70 GO TO 50 


Subroutine 2000T: search through the data bank, to find the topic T$ 

Starting at 0, hunt for T$.° 2000 I=0: GOSUB 8000 

If absent, do 4000, else 3000. 2010 IF I=0 THEN GOSUB 4000 ELSE GOSUB 3000 
2020 RETURN 


Subroutine 6000T: insert the topic into the data bank 


Increase number of topics. 6000 N=N+1 
Append new topic & its data. 6010 TS(N)=T$: DS(N)=D$: P(N,1)=0: P(N,2)=0 
Make topic I1 point to it. 6020 P(1I1,J)=N 


6030 RETURN 


Subroutine 7000T: delete the topic from the data bank 
Make topic I1 (which was pointing to the vanishing topic) point to the vanishing 


topic's left child instead. 7000 P(I1,J)=P(1,1) 

A is the number of the vanishing topic. B is the number of the vanishing topic's 

right child. 7010 A=I: B=P (1,2) 

If the vanishing topic has a right child, make something point to that 

child. 7020 IF B>O THEN T$=T$(B): I=11: GOSUB 8000: P(I1, 
J)=B 

If the vanishing topic isn't topic N, move topic N to the gap left by the vanishing 

topic. 7030 IF A<N THEN TS=T$(N): I=0: GOSUB 8000: P(I1,J 
=A: TSCA)=TS$S: DSCA)=D$S(N): PCA,1)=P(N,1): PCA,2)= 
P(N,2) 

Decrease number of topics. 7040 N=N-1 


7050 RETURN 


f the arrow pointing to T$ points to the left, let J = 1. 
f the arrow pointing to T$ points to the right, let J = 2. 
the topic is found, return. 8000 IF T$=T$(I) THEN RETURN 
Compute J. 8010 IF TS$<TS$C(I) THEN J=1 ELSE J=2 
Compute I1 and I. 8020 I1=I: I=P(I,J) 
If pointer not 0, hunt again. 8030 IF I>0 THEN GO TO 8000 
8040 RETURN 
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All those data-bank programs (chronological, alphabetical, and tree) put data 
into the RAM. When you turn off the power, the RAM forgets all the data! 
This superior program puts the data bank onto a disk instead of into RAM: 


The main routine D 

Prepare the variables. 10 DEFINT A-Z: DIM PF$(2): Z$=MKI$(O) 

Open the file and its fields. 20 OPEN "INFO" AS 1 LEN=128: FIELD 44 AS TFS, 80 A 
S DFS 2eAS PFS(T): 24AS (PFSCe) 

Topics #1 and #2 are headers. Topic #2 should be "N !", and topic #1's left 


pointer should be N. 30 IF LOF(1)=0 THEN N=2: LSET TFS=""N !""s LSET PFSC 
1)=Z7$: ESET PF$(2)=Z$: PUT 1,2 ELSE GET 1,1: N=CVI 
(PFE GIDE 

Ask the human for a topic. 40 PRINT: PRINT "WHAT TOPIC INTERESTS YOU?": PRINT 


"(TF YOU'RE NOT SURE, TYPE A QUESTION MARK)": PRI 
NT ''CIF YOU WANT TO END, TYPE THE LETTER X)": LINE 


INPUT TS 

If the human wishes, do 1000. 50 IF T$="'2"' THEN GOSUB 1000: GO TO 40 

If the human wishes, end. 60 IF T$="'"X"" THEN LSET PF$(1)=MKIS(N): PUT 1,1: CL 
OSE: END 

Make TS$ resemble T$ but be 44 characters long (by adding blank spaces at the 

end). 70 LSET TFS=T$: TSS=TFS 

Find the topic. 80 GOSUB 2000 

Go to another topic. 90 GO TO 40 

Subroutine 1000D: tell the human what topics are in the file 

If just headers, say so. 1000 IF N=2 THEN PRINT "I DON'T KNOW ANY TOPICS YE 


T.": PRINT "MY MIND IS STILL BLANK."': PRINT "PLEAS 
E TEACH ME A NEW TOPIC.'': RETURN 

If file has topics, list them. 1010 PRINT "I KNOW ABOUT THESE TOPICS:"': FOR I = 
TO N: GET 1,1: PRINT TFS: NEXT: PRINT "PICK ONE 
F THOSE TOPICS, OR TEACH ME A NEW ONE." 
1020 RETURN 


Subroutine 2000D: search through the file, to find the topic TSS 
Starting at 2, hunt for TS$. 2000 I=2: GOSUB 8000 


If absent, do 4000, else 3000. 2010 IF I=0 THEN GOSUB 4000 ELSE GOSUB 3000 
2020 RETURN 


iS 
0 


Subroutine 3000D: the topic is in the file 


Tell human about the topic. 3000 PRINT "HERE'S WHAT I KNOW ABOUT "TS'':": PRINT 
DFS 

Ask whether to change info. 3010 INPUT "DO YOU WANT TO CHANGE THAT INFORMATION 
"SAS 


If human says yes, do 5000. 3020 IF A$="YES'' OR A$="Y'"' THEN GOSUB 5000 
3030 RETURN 


Subroutine 4000D: the topic is not in the file . 

Say the topic isn't in the file. 4000 PRINT "I DON'T KNOW ANYTHING ABOUT "'T$"."' 

Request info about the topic. 4010 PRINT: PRINT "TELL ME ABOUT "TS: PRINT "CIF Y 
OU DON'T WANT TO TELL ME, TYPE THE LETTER X)": LIN 
E INPUT D$ 

If human wants, insert topic. 4020 IF D$<>''X'' THEN GOSUB 6000 
4030 RETURN 


Subroutine 5000D: change the information 


Agree to change the info. 5000 PRINT "OKAY. I'VE ERASED THAT INFORMATION ABO 
UT ES why 
Request new info. 5010 PRINT: PRINT "TYPE WHAT YOU WANT ME TO KNOW A 


BOUT "TS: PRINT "CIF YOU WANT ME TO FORGET "TS", T 
YPE, THE LETTER X)": LINE INPUT DS 
Change info as requested. 5020 IF D$="'"X" THEN GOSUB 7000 ELSE LSET DFS=D$: P 
UT tal 
5030 RETURN 
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Subroutine 6000D: insert the topic into the file 


Increase number of topics. 6000 N=N+1 
Let topic I1 point to topic N. 6010 LSET PFSCJ)=MKIS(N): PUT 1,11 
Append new topic, at N. 6020 LSET TF$=TS$: LSET DFS=D$: LSET PF$(1)=Z$: LS 


ET PF$(2)=Z$: PUT 1,N 
6030 RETURN 


Subroutine 7000D: delete the topic from the file 
A is the number of the vanishing topic. P1 and P2 are the topic's 


pointers. 7000 A=I: P1=CVICPFS(1)): P2=CVICPFS$(2)) 
Make topic I1 (which was pointing to the vanishing topic) point to the vanishing 
topic's left child instead. 7010. GET 1,11: -LSET PFSCJ)=MKIS(P1): PUT 1,11 
If the vanishing topic has a right child, make something point to that 
child. 7020 IF P2>0 THEN GET 1,P2: TSS=TFS$: I=11: GOSUB 8 
O00: LSET PFSCJ)=MKIS(P2): PUT 1,11 _ . 
If the vanishing topic isn't topic N, move topic N to the gap left ‘by the vanishing 
topic. 7030 IF A<N THEN GET 1,N: PUT 1,A: TS=TF$: I=2: GO 
SUB )}S000's) GERM g lbs LSET: PF$(J)=MKISCA) : Pi erat! 
Decrease number of topics. 7040 N=N-1 
7050 RETURN 


ubroutine 8000D. Starting at position I, hunt for TS$ in the file. When the 


earch is done, set the variables as follows. 


et I = the position of TS$. (If TS$ isn't in the file, let I = ie ) 
et I11 = the position of the topic that points to TS$. 

f the arrow pointing to TS$ points to the left, let J = 1. 
f the arrow pointing to TS$ points to the right, let J = 2. 


Start at position I. 8000 GET 1,1 

If the topic is found, return. 8010 IF TS$=TFS THEN RETURN 
Compute J. 8020 IF TS$<TFS THEN J=1 ELSE J=2 
Compute I1 and I. 8030 I1=I: I=CVICPFS(J)) 


If pointer not 0, hunt again. 8040 IF I>0 THEN GO TO 8000 
8050 RETURN 
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TURTLE GRAPHICS 


GETTING INTO LOGO 
Like BASIC, LOGO is a computer language. LOGO is better than BASIC in three 


ways: by using LOGO, you can more easily create graphics, build "lists of lists", 


and design your own computer language (by adding your own words to LOGO). Let's 


see how! 
I'll explain the best version of LOGO, then explain how other versions differ. 


To start using LOGO, put the LOGO disk into the computer, then turn the 
computer on. The computer will say: 


WELCOME TO LOGO 


Differences. Some versions of LOGO come on tapes or ROM cartridges instead of 
disks. Some versions use a mouse and require you to point at a LOGO icon. 

Most versions of LOGO don't understand small letters; they understand only 
capitals. If your computer has a CAPS LOCK key, make sure it's pressed down. 

To start Commodore LOGO, say: ; | 


LOAD ''LOGO",8 


RUN 

To start the disk version of Radio Shack Color LOGO, say: 
LOADM "LOGO" 
EXED 


After Radio Shack Color LOGO says "LOGO:", tap the R key. 

To use a version of LOGO called "LOGO Writer", use the student disk that your 
teacher created from the master disk, or use the TRY ME disk. Before using the TRY 
ME disk on an IBM PC, do the following: insert the PC-DOS disk, turn on the 
computer, type the date and time, insert the TRY ME disk, then type— 


A>Logowrit 


When you start using LOGO Writer, the top of the screen will say CONTENTS. To 
continue beyond that point, press the ENTER key. 


SHOWING THE TURTLE 
To draw pictures, you move a turtle across the screen. To see the turtle, say: 


SHOWTURTLE 


SHOWTURTLE is all one word. Do not put a space between SHOW and TURTLE. 
LOGO lets you abbreviate most words. The abbreviation for SHOWTURTLE is ST; 
so instead of typing SHOWTURTLE you can just type: 


ST 


After you say SHOWTURTLE (or ST), you'll see a turtle in the center of your 
screen. 

You can make the turtle either visible or invisible. To make it invisible, say 
HIDETURTLE (or HT). To make it visible again, say SHOWTURTLE (or ST) again. 
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Differences. Many versions of LOGO put a question mark on the screen and 
expect you to type a command after the question mark. For example, to say 


SHOWTURTLE, type SHOWTURTLE after the question mark, so your screen looks 
like this: 


2SHOWTURTLE 


Atari 800 LOGO shows a good picture of a turtle (including the turtle's head, 
feet, tail, and shell), but most other versions of LOGO show just the turtle's nose, 
which looks like an arrowhead. 

LOGO Writer and Atari 800 LOGO require you to abbreviate; for example, they 
require you to say ST instead of SHOWTURTLE. 


ROTATING THE TURTLE 
The screen shows a map of the turtle desert. The desert is quite boring: the only 
thing in the desert is the turtle, and so the turtle is the only thing you see on the 
map! 

Like most maps, your screen's map is a rectangle whose top edge is called north, 
bottom edge is south, right edge is east, and left edge is west. 

When you start using LOGO, the turtle is at the center of the screen and is facing 
north. In other words, the turtle is staring at the top edge of the screen. 

When was the last time you looked at a compass? The typical compass is a circle 
divided into 360 degrees. North is called 0 degrees; east is 90 degrees; south is 180 
degrees; and west is 270 degrees. 

The turtle has a compass, divided into degrees. For example, to make the turtle 
face east, say SETHEADING 90 or just: 


SETH 90 


When typing that command, you must press the SPACE bar before you type the 90. 
That command makes the turtle rotate, so that it faces east. 


The turtle can rotate to any angle you wish. For example, to make the turtle face 
northeast, say: 


SETH 45 


You can choose any angie from 0 to 360. You can even choose decimals and negative 
numbers. Experiment! 

In LOGO, rotating clockwise is called rotating "to the right". To make the turtle 
rotate clockwise, 90 degrees, say RIGHT 90 or just: 


RT 90 


For example, if the turtle is facing north, and you say RT 90, the turtle will face 
east. Then if you say RT 90 again, the turtle will turn clockwise 90 degrees more, so 
that the turtle will face south. If you say RT 90 again, the turtle will face west. If 
you say RT 90 again, the turtle will face north again. 

Rotating counterclockwise is called rotating "to the left". To make the turtle 
rotate counterclockwise, 90 degrees, say LEFT 90 (or LT 90). 

Differences. The computer's RAM accurately handles decimals (such as 4.1 
degrees) , but the screen shows just an approximation of what's in the RAM. For most 
versions of LOGO, the screen shows the turtle's angle rounded to the nearest 15 
degrees; Radio Shack Color LOGO shows the angle rounded to the nearest 45 
degrees. 
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MOVING THE TURTLE 
If you say FORWARD 50 (or FD 50), the turtle will walk 50 steps in the direction it 
was facing. For example, if the turtle faces east, and you say FD 50, the turtle will 
walk 50 steps east. If you then say FD 50 again, the turtle will walk 50 steps farther 
east. . 

If you say BACK 50 (or BK 50), the turtle will walk backwards 50 steps. For 
example, if the turtle faces east and you say BACK 50, the turtle will walk 50 steps 
backwards, so that the turtle will be moving west while still facing east. 

The point at the center of the screen is called home. That's where the turtle's life 
began. If you say HOME, the turtle will return to its home and will also return to its 
original heading: it will face north. 

If you say— 


SETPOS [30 70] 


the turtle will hop to the point whose coordinates are [30 70]. In other words, the 
turtle will hop to the point that's 30 steps east and 70 steps north of home. It will hop 
to that point, regardless of where the turtle was before. The hop will not change the 
direction the turtle faces: for example, if the turtle faces south before the hop, the 
turtle will still face south after the hop, even though it didn't hop south. 

Instead of saying SETPOS [30 70], you can say— 


SETX 30 
SETY 70 


The SETX 30 makes the turtle hop across the screen horizontally east-west, until it 
reaches a point that's 30 steps further east than home was. The SETY 70 makes the 
turtle hop vertically north-south, until it reaches a point that's. 70 steps further 
north than home was. 

The.screen's edge. If you try to move the turtle past the edge of the screen, 
what happens? The answer depends on which kind of universe you create. You have 
three choices. 

If you say FENCE, the computer erects a fence around the desert, so that the 
turtle can't move past the edge of the screen. If you give the turtle a command that 
requires the turtle to go past the fence, the turtle eripes, refuses to do the command 
at all, and doesn't even walk up to the fence. 

If you say WINDOW instead of FENCE, the computer lets the turtle wander off the 
screen, to locations you can't see. Your screen acts as a window, through which you 
see just part of the turtle's universe. 

If you say WRAP (instead of WINDOW or FENCE), moving the turtle past the edge 
of the screen makes the turtle take a quick trip around the world. For example, if 
the turtle travels west, past the west edge of the screen, the turtle quickly travels 
around the world and returns from the east. If the turtle travels north, past the top 
of the screen, the turtle quickly travels around the world (past the north pole and 
then past the south pole) and returns from the south. 

When you start using LOGO, you automatically begin with a WRAPped universe, 
but you can switch to a FENCE or a WINDOW. 

SETSP. When the turtle isn't busy obeying your commands, how does it spend its 
leisure time? Normally, the turtle just sits still. But if you say SETSP 30, the turtle 
lee spend all its leisure time jogging at speed 30, in whatever direction the turtle is 

acing. 

For example, suppose the turtle is facing north, and you say SETSP 30. The 
turtle will jog north, at speed 30. The turtle will keep jogging north, until you give 
it another command. If you don't give it another command soon, it will reach the edge 
of the screen, and its fate afterwards will depend on whether you said FENCE or 
WINDOW or WRAP. 

While the turtle is jogging, if you tell it to change direction (by saying SETH or 
RT or LT), it will continue jogging but in the new direction. 

While the turtle is jogging, if you tell it to walk (by saying FD or BK or SETPOS 
or SETX or SETY), the turtle will walk to where you said and then will continue 
jogging, from that new location. 
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To stop the jogging, say SETSP 0 (which sets the jogging speed to 0) or HOME 
(which makes the turtle go home and rest there). 

Differences. Atari 800 LOGO understands SETSP, but most other versions of 
LOGO don't. Some versions of LOGO don't understand FENCE. LOGO Writer lacks 
SETSP, FENCE, WINDOW, WRAP, SETX, and SETY. 

For MIT versions of LOGO (such as Krell LOGO, Terrapin Apple LOGO, and 
Commodore LOGO), change FENCE to NOWRAP, don't say WINDOW, and change 
SETPOS [30 70] to SETXY 30 70; if the second number in the SETXY command is 
negative, put that number in parentheses. Radio Shack Color LOGO resembles MIT 
versions but lacks some commands, such as SETXY. 


CHANGING THE PEN 
The turtle has a pen in its belly. While the turtle moves, its pen scrapes along the 
ground and draws a line on the ground. That line is called the turtle's trai/. It 
appears on your screen, since your screen is a map of what's on the ground. Even if 
you make the turtle invisible (by saying HT), you'll still see the turtle's trail. 

If you say PENUP (or PU), the turtle lifts its pen from the ground, so that the 
pen stops drawing a trail. To put the pen back down on the ground again, say 
PENDOWN (or PD). 

You can change the pen's ink to a different color. To switch to color #2, say: 


SELPGrC 


That makes the computer set the pencolor to 2. 

You can replace the pen by an eraser. To do that, say PENERASE (or PE). Then 
as the turtle moves, it will erase any ink that was lying on the ground underneath. 
For example, if you turn the turtle around and make it walk back along the trail it 
created, it will erase the trail. The eraser scrapes across the ground until you lift it 
(by saying PENUP or PU) or insert a pen instead (by saying PENDOWN or PD). 

You can replace the pen by a reverser. To do that, say PENREVERSE (or PX). 
When you draw with the reverser on black ground, the ground becomes white; when 
you draw on white ground, the ground becomes black; when you draw on colored 
ground, the ground changes to the opposite color. The reverser works until you lift 
it (by saying PENUP or PU) or switch to a pen or eraser (by saying PENDOWN, PD, 
PENERASE, or PE). 

After you've drawn a polygon (such as a triangle or rectangle or octagon), you 
can fill in the middle. Here's how. Lift the pen (by saying PENUP or PU), then move 
the turtle to somewhere in the middle of the polygon, then say PENDOWN (or PD), 
then say FILL. The FILL command makes the pen leak, until the ink fills the entire 
polygon. 

Differences. Instead of saying SETPC, LOGO Writer and Atari 800 LOGO say 
SETC; MIT versions say PC. 

Instead of PENERASE (or PE), Commodore LOGO says PC -1; Krell and Terrapin 
Apple LOGO say PC 0; Radio Shack Color LOGO says PC 3. 

Instead of PENREVERSE (or PX), Krell and Terrapin Apple LOGO say PC 6. 
Commodore LOGO and Radio Shack Color LOGO lack the concept. 

Apple's colors are numbered from 0 to 5, IBM's and the Color Computer's from 0 
to 3, Commodore's and the Atari ST's from 0 to 15, and the Atari 800's from 0 to P27. 

LOGO Writer, IBM LOGO, DR LOGO, and Atari ST LOGO understand FILL, but 
most other versions don't. 
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CHANGING THE BACKGROUND 
The desert sand is called the turtle's background. The sand is made of a strange 
substance, whose color changes dramatically if you shine colored light at it. To make 
the sand appear to have color #1, say: 


SETBG 1 


That makes the computer set the background color to 1. 

If you say CLEAN, a gust of wind will blow all the sand around, so that the sand 
covers all the trails. that the turtle made, and the screen is clean again: all that 
remains on the screen is the turtle itself. 

To erase everything you did and "start over", you could say HOME (which 
returns the turtle to home and makes the turtle face north) and CLEAN (which 
erases the turtle's trails). But instead of saying HOME and then CLEAN, you can 
combine those two commands into this single command: CLEARSCREEN (or CS). 

If you say— 


DOT [20 50] 


a drop of ink will fall from the sky and land on the point whose coordinates are ee 
50], so that you see a dot of ink at that point. 

Differences. For LOGO Writer, change CLEARSCREEN (or CS) to CG (which 
means "Clear the Graphics"); to clear the graphics and the rest of the screen and 
make everything "fresh", say CT RG (which means "Clear the Text and Reset the 
Graphics"). For MIT versions of LOGO, change CLEARSCREEN (or CS) to DRAW, 
change CLEAN to CLEARSCREEN, and change SETBG to BG. LOGO Writer, MIT 
versions, and Atari 800 LOGO don't understand DOT. 


EXTRA TURTLES 
You can create several turtles, called turtle 0, turtle 1, turtle 2, turtle 3, etc. 
Normally, your commands are obeyed by just turtle 0. To talk to turtle 1 instead, 
say: 


FECES 


That makes turtle 1 appear on the screen, and all your future commands will be 
obeyed by turtle 1 instead of turtle 0. While turtle 1 obeys your commands and 
prances around, turtle 0 will sit quietly (unless you told it to jog, by saying SETSP 
30). 

To start talking to turtle 0 again, say TELL 0. To talk to turtle 2, say TELL 2. To 
talk to turtle 3, say TELL 3. 

If you say— 


TEs 275] 


you'll be talking to turtles 0, 1, 2, and 3 simultaneously: any commands you give will 
be obeyed by all those turtles. 

Differences. LOGO Writer, Commodore LOGO, and Atari 800 LOGO understand 
TELL, but most other versions of LOGO don't. LOGO Writer and Commodore LOGO 
hide turtles 1, 2, and 3, until you make them appear by typing ST. In Commodore 
LOGO, TELL must be followed by a single number, not a list of numbers; and before 
saying TELL, you must feed the computer TELL's definition, by putting the Utilities 
Disk in the drive and typing: 


READ ''SPRITES Put the quotation mark before SPRITES but not aftewards. 
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GRAPHICS VERSUS TEXT 
Usually, the top of the screen shows the map of the turtle desert, and the bottom of 
the screen shows the commands you've been typing. For example, if you say ST, the 
top of the screen Shows the Turtle, and the bottom of the screen shows what you 
typed: the letters S and T. 

If you want to devote the entire screen to the map, say FULLSCREEN (or FS). 
Then the map fills the entire screen, so that you see a larger portion of the desert. 
Since the entire screen shows the map instead of your typing, what you type will be 
invisible, until you return to the normal setup (by typing MIXEDSCREEN or MS) or 
devote the entire screen to your typing instead of amap (by saying TEXTSCREEN or 
TS). 

Differences. For MIT versions, change MIXEDSCREEN to SPLITSCREEN and 
don't use the abbreviations FS, MS, and TS. LOGO Writer always gives you a mixed 
screen and won't let you change to fullscreen or textscreen. 
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ARITHMETIC 
To make the computer print the answer to 5+2, say PRINT 5+2 or just: 


PR 5+2 
The computer will print the answer: 
t 


Like BASIC, LOGO lets you use the symbols +, -, *, and /, and lets you use 
negative numbers, decimals, E notation, and parentheses. 

Differences. For Apple LOGO 2, put a blank space before and after the symbol /. 
LOGO Writer puts its answers at the top of the screen and lacks E notation. 


SQUARE ROOTS 
SQRT 9 means "the square root of 9". So to print the square root of 9, type this: 


PR SQRT 9 
The computer will print the answer: 
3 
If you say— 
PR SQRT 9+7 
the computer will print the square root of 16, which is 4. If you leave extra spaces, 
like this— 
PR SQRT 9 + 7 


the computer will ignore the extra spaces: it will still print the square root of 16, 
which is 4. If you say— 


PR (SQRT 9)+7 


the computer will find the square root of 9, which is 3, and then add 7, so it will 
print 10. 
Differences. LOGO Writer lacks SQRT. 


TURTLE NUMBERS 
To find out where the turtle is, say PR XCOR (which prints the X coordinate) and 
PR YCOR (which prints the Y coordinate). 
To slide the turtle 20 steps farther east, say: 


SETX XCOR+20 


That says to increase the X coordinate by 20. 

To slide the turtle 20 steps farther west instead, say SETX XCOR-20. To slide 
the turtle 20 steps north, say SETY YCOR+20. To-slide the turtle 20 steps south, 
say SETY YCOR-20. . 

If you say PR HEADING, the computer will tell you which direction the turtle is 
facing. For example, if the turtle's facing east, the computer will print 90. The 
HEADING will always be a number between 0 and 360. 
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If you say— 
PR TOWARDS [30 70] 


the computer will tell you which direction to turn the turtle, to make the turtle face 
the point [30 70]. The direction will be a number between 0 and 360. To actually turn 
the turtle in that direction, so that the turtle faces the point [30 70], say 
SETHEADING TOWARDS [30 70] (or SETH TOWARDS [30 70]). So to make the turtle 
"walk 10 steps toward the point [30 70]", say this: 


SETH TOWARDS [30 70] 
FD 10 


To find out the color of the ink in the turtle's pen, say PR PENCOLOR (or PR 
PC); the computer will print the color's number. To find out the color of the 
background sand, say PR BACKGROUND (or PR BG). To find out which turtle 
you're talking to, say PR WHO; the computer will print the turtle's number. 

Differences. For MIT versions, change PENCOLOR (or PC) to LAST TS, change 
BACKGROUND (or BG) to ITEM 3 TS, and omit the brackets after TOWARDS. For 
LOGO Writer, change PENCOLOR (or PC) to COLOR, change XCOR to FIRST POS, 
change YCOR to LAST POS, and don't say TOWARDS. 


RANDOM NUMBERS 
If you say PR RANDOM 5, the computer randomly chooses one of these 5integers: 0, 
1, 2, 3, 4. The computer prints the integer it chooses. 


| ROUNDING 
If you say PR INT 3.9, the computer will convert 3.9 to an INTeger by omitting 
everything after the decimal point. The computer will print just 3. 
If you say PR ROUND 3.9, the computer will ROUND 3.9 to the nearest integer, 
which is 4. The computer will print 4. | 
Differences. For MIT versions, change INT to INTEGER. LOGO Writer lacks INT 
and ROUND. 


FANCY DIVISION 

If you say PR 11/4, the computer will divide 11 by 4 and print the answer, which is 
apt tae 
If you say PR QUOTIENT 11 4, the computer will divide 11 by 4 but ignore what 
comes after the decimal point. The computer will print just 2. . 

If you say PR REMAINDER 11 4, the computer will divide 11 by 4, and realize that 
4 goes into 11 "2 times, with a remainder of 3". The computer will print the 
remainder, 3. 

Differences. LOGO Writer lacks QUOTIENT. 


TRIGONOMETRY 
To print the sine of 30 degrees, say PR SIN 30. To print the cosine of 30 degrees, 
say PR COS 30. 

Since the tangent is "the sine divided by the cosine", you can print the tangent 
of 30 degrees by saying PR (SIN 30)/COS 30. 

The opposite of tangent is arctangent. To print the arctangent of .58, say PR 
ARCTAN .58. That makes the computer print how many degrees are in the angle 
whose tangent is .58. 

Differences. LOGO Writer and Atari 800 LOGO lack ARCTAN. For MIT versions, 
change ARCTAN .58 to ATAN .58 1. 
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WORDS 
To make the computer print the word LOVE, type this: 


PR "LOVE 


In LOGO, a quotation mark means: the word. So that whole line means: PRint the 
word LOVE. Make sure you put the quotation mark before LOVE, but do not put a 
quotation mark afterwards! That line is pronounced: P R quotes LOVE. When you 
press the ENTER key at the end of that line, the computer will print: 


LOVE 


LISTS 
To print a list of words, put the list in brackets, like this: 


PR [MA CAN'T LOOK] 


That tells the computer to print a list of three words. The first word is MA; the 
second is CAN'T; the third is LOOK. The computer will print the list but won't 
bother to print the brackets; the computer will print just: 


MA CAN'T LOOK 


If you say SHOW instead of PR, the computer will print the brackets also, like 
this: 


[MA CAN'T LOOK] 


The computer understands FIRST, LAST, and similar concepts: 


FIRST [MA CAN'T LOOK] is the list's first item, MA. 
LAST [MA CAN'T LOOK] is the list's last item, LOOK. 
ITEM 2 [MA CAN'T LOOK] is the list's 2nd item, CAN'T. 
COUNT [MA CAN'T LOOK] is how many items, 3. 


BUTFIRST [MA CAN'T LOOK] is the list minus the first item; it's [CAN'T LOOK]. 
BUTLAST [MA CAN'T LOOK] is the list minus the last item; it's [MA CAN'T]. 


FPUT "WOW [MA CAN'T LOOK] inserts WOW first; it's [WOW MA CAN'T LOOK]. 
LPUT "WOW [MA CAN'T LOOK] inserts WOW last; it's [MA CAN'T LOOK wow]. 


WORD "WOW "MA combines the words, to form a longer word; it's WOWMA. 
LIST "MA "CAN'T combines the words, to form a list; it's [MA CAN'T]. 
SENTENCE [WOW MA] [CAN'T LOOK] combines lists; it's [WOW MA CAN'T LOOK]. 


When you type those examples, begin each line by saying PR or SHOW. For example, 
if you say— 


SHOW BUTFIRST [MA CAN'T LOOK] 
the computer will say: 
[CAN'T LOOK] 
You can abbreviate BUTFIRST to BF, BUTLAST to BL, and SENTENCE to SE. 
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A word is a list of characters. For example, the word FUN is a list of three 
characters (F, U, and N). So all the list concepts (such as FIRST, LAST, ITEM, and 
COUNT) apply to words also. For example, if you say-—— 


SHOW BUTFIRST ''FUN 
or 

PR BUTFIRST ''FUN 

the computer will say: 
UN 


Since FIRST [MA CAN'T LOOK] is MA, whose last character is A, the computer 
knows that LAST FIRST [MA CAN'T LOOK] is A. 

You can put lists inside lists. For example, since FIRST [[MA PA] CAN'T LOOK] 
is [MA PA], whose last item is PA, the computer knows that LAST FIRST [[MA PA] 
CAN'T LOOK] is PA. 

Differences. MIT versions don't understand SHOW. For Commodore LOGO, 
change SHOW to FPRINT. 

Atari 800 LOGO doesn't understand ITEM. Version 1 of Terrapin Apple LOGO 
didn't understand ITEM and COUNT. Version 1 of Apple LOGO could find an ITEM 
within a list of words but not within a single word. 


MULTIPLE COMMANDS 
You can put several LOGO commands on the same line. For example, you can say: 


FD 50 RT 90 


When you press the ENTER key at the end of that line, the turtle will go forward 50 
and then turn right 90 degrees. 
If you say— 


Prete oPR: oUtT>, 1 
the computer will print the answers on separate lines: 


5 
BF al 


If you say— 
PR [SKY IS BLUE] PR [SO ARE YOU] 
the computer will print this poem: 


SKY IS BLUE 
SO ARE YOU 


REPEAT 
Let's make the turtle draw a square, so that each side is 50 steps long. 

To do that, first make sure the turtle's pen is down, so that the turtle will draw 
as it moves. To make sure the pen is down, you can say PENDOWN (or PD). 

To make the turtle draw the first side, say FD 50. Then tell the turtle to turn 
right 90 degrees (by saying RT 90) and draw the second side (by saying FD 50 
again). Then tell the turtle to turn right 90 degrees again, etc. Altogether, these 
commands make the turtle draw all four sides of the square: 


FD 50 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50 RT 90 
But instead of typing all that, you can type this short-cut: 
REPEAT 4 [FD 50 RT 90] 


That makes the computer repeat, 4 times, the act of going forward 50 and turning 
right 90 degrees. 
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Let's make the computer print the word WOW, twenty times. Here's how: 
REPEAT 20 [PR ''WOW] 
The computer will print the words on separate lines, like this: 


WOW 
WOW 
WOW 
etc. 


Here's how to make the computer say FRANCE IS FUNNY, twenty times: 
REPEAT 20 [PR [FRANCE IS FUNNY] ] 


VARIABLES 
You can make a word stand for something. To make the word DRINKINGAGE stand 
for 21, type this: 


MAKE "'DRINKINGAGE 21 


In that line, DRINKINGAGE is called the variable or the name; 21 is called 
DRINKINGAGE's value or the thing that DRINKINGAGE stands for. 
After you type that line, you can say: 


PR THING "'DRINKINGAGE 


That makes the computer print the THING that DRINKINGAGE stands for. The 
computer will print: 


21 


Instead of typing THING and then a quotation mark, you can type just a colon, 
like this: 


PR :DRINKINGAGE 


That means: PRint the thing that DRINKINGAGE stands for. It means: PRint the 
value of DRINKINGAGE. The computer will print: 


21 


LOGO programmers have a nickname for the colon: they call it dots. So the 
statement — 


PR :DRINKINGAGE 


is pronounced: P R dots DRINKINGAGE. 
Here's another example: 


MAKE "'MAGICNUMBER 7 
PR :MAGICNUMBER+2 


The first line makes the word MAGICNUMBER stand for 7. The next line says to 
print the value of the MAGICNUMBER, plus 2. The computer will print 9. 

A word can stand for anything; it can even stand for a list. For example, you can 
Say: 


MAKE "STOOGES [MOE LARRY CURLEY] 
PR COUNT :STOOGES 


The first line says the word STOOGES stands for the list [MOE LARRY CURLEY]. 
The next line makes the computer print the COUNT of how many items are in that 
list; the computer will print: 


3 \ 


Here's the rule: to define a word, say MAKE and type a quotation mark; to use 
the word's value, type a colon instead. 
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SQUARE 
To teach the computer what the word SQUARE means, type this: 


TO SQUARE 
REPEAT 4 [FD 50 RT 90] 
END 


The first line means: here's how TO do a SQUARE. The next line gives the definition 
itself: repeat 4 times the act of going forward 50 steps and turning right 90 degrees. 
The bottom line of every definition says END. 

Those three lines form the definition of SQUARE. They're also called the program 
for SQUARE, and the procedure for how to do a SQUARE. 

After you type those three lines, the computer will know the meaning of SQUARE. 
So in the future, whenever you say— 


SQUARE 


the turtle will draw a square. 

Differences. Before you type the word TO, LOGO Writer requires you to tap the 
F key while holding down the CONTROL key (on the IBM) or Open Apple Key (on the 
Apple); Radio Shack Color LOGO requires you to tap the BREAK key, then tap the 
CLEAR key while holding down the SHIFT key, then tap the E key. | 

Many versions of LOGO automatically put the symbol ">" at the beginning of each 
line of the definition. 

After you type the word END, some versions of LOGO require you to tap an extra 
key or two: for LOGO Writer, tap the F key while holding down the CONTROL key 
(IBM) or Open Apple key (Apple); for Commodore LOGO, tap the RUN STOP key; 
for Krell and Terrapin Apple LOGO, tap the C key while holding down the CONTROL 
key; for Radio Shack Color LOGO, tap the BREAK key then the R Key. 


PINWHEEL 
Suppose you draw a square, then rotate 10 degrees, then draw another square, like 
this: 


Suppose you continue that process: draw a square, then rotate 10 degrees, then 
draw another square, then rotate 10 degrees again, then draw another square, then 
rotate 10 degrees again, etc. You'll get this pinwheel: 


Let's define PINWHEEL to be that shape. Here's how: 


TO PINWHEEL 
REPEAT 36 [SQUARE RT 10] 
END 
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REBUKE 
Let's define REBUKE to be this message: 


YOU LOOK TERRIF! 
YOU: DRESS’ SO" SPIER 
YOU ACT SO COOL! 
YOU MAKE ME DROOL! 


BUT YOU'RE A FOOL! 
YOU'RE FAILING SCHOOL! 
YOU'RE REALLY DUMB! 

A FIRST - CLASS BUM! 


SO GET YOUR MIND 

OFF ITS BEHIND, 

AND YOU WILL FIND 

YOU'RE ONE - OF - A — KIND! 


Here's how: 


TO REBUKE 

PR [YOU LOOK TERRIF!] 

PR [YOU DRESS SO SPIFF!] 

PR [YOU ACT SO COOL!] 

PR [YOU MAKE ME DROOL!] 

PR [] 

PR [BUT YOU'RE A FOOL!] 

PR [YOU'RE FAILING SCHOOL! ] 
PR [YOU'RE REALLY DUMB! ] 

PR [A FIRST - CLASS BUM!] 
PR [] 

PR [SO GET YOUR MIND] 

PR [OFF ITS BEHIND,] 

PR [AND YOU WILL FIND] 

PR [YOU'RE ONE - OF - A — KIND!] 


Then whenever you say-— 
REBUKE 


the computer will print the poem. (To see the whole poem on the screen at once, say 
TEXTSCREEN or TS, before you say REBUKE. ) . 

To have fun, say that poem out loud in a jive rap style, and clap your hands twice 
at the end of each line. 
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After you've defined a word (such (ee aah , you can edit that definition by 
saying — ) 

EDIT ''REBUKE 

or: 

ED "REBUKE 


The computer will put your definition on the screen and let you edit that definition, 
by using the arrow keys and the other edit keys. When you've finished editing the 
definition, tap the ESCAPE key. 

If you say ED [REBUKE PINWHEEL], the computer will put both definitions on the 
sereen simultaneously and let you edit them both. When you've finished editing 
them, tap the ESCAPE key. | 

If you say just ED, the computer will put on the screen the same thing you edited 
last time, and give you a chance to edit it again. 

Differences. While editing, experiment by tapping the arrow keys, the ENTER 
key, RETURN key, BACKSPACE key, DELETE key, INSERT key, CONTROL key, 
and any other edit keys on your keyboard. For most versions of LOGO, the edit keys 
work the same way as when you're using word processors. On old Apples that lack 
up-arrow, down-arrow, and DELETE keys, do the following: to move up to the 
Previous line, tap the P key while holding down the CONTROL key; to move down to 
the Next line, tap the N key while holding down the CONTROL key; to delete the 
character left of the cursor, tap the ESCAPE key; if you have Apple LOGO 1 and 
want to move Back to the left, tap the B key while holding down the CONTROL key. 

For MIT versions, omit the quotation mark after EDIT or ED. 

Instead of tapping the ESCAPE key, do the following: for MIT versions and Apple 
LOGO 1, tap the C key while holding down the CONTROL key; for Apple LOGO 2, tap 
the A key while holding down the open-Apple key. | 

For LOGO Writer and Radio Shack Color LOGO, instead of saying EDIT or ED, 
follow the procedure for saying TO. 


FLEXIBLE DEFINITIONS 
Let's change the definition of SQUARE, to make it more flexible. Let's define 
SQUARE so that SQUARE 50 will be a square that's 50 steps long on each side, and 
SQUARE 100 will be a square that's 100 steps long on each side, and SQUARE 6 will 
be a square that's 6 steps long on each side, etc. To do that, edit the definition of 
SQUARE, by saying: 


ED ‘SQUARE 
The computer will show our old definition of SQUARE: 


TO SQUARE 
REPEAT 4 [FD 50 RT 90] 
END 


Using the arrow keys, insert :SIDE after SQUARE, and change the 50 to :SIDE, so 
that the definition looks like this: 


TO SQUARE :SIDE 
REPEAT 4 [FD :SIDE RT 90] 
END 


When you've finished the editing, press the ESCAPE key. 
Then if you say— 


SQUARE 100 


the computer will look at the new definition of SQUARE, realize that :SIDE is 100, 
and do REPEAT 4 [FD 100 RT 90], which draws a square having 100 steps on each 
side. 
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After changing the definition of SQUARE in that way, you must always put a 
number after the word SQUARE. If you say SQUARE 100, the computer will draw a 
square whose side is 100; if you say SQUARE 6, the computer will draw a square 
whose side is 6; but if you just say SQUARE, the computer won't know how long to 
make the side and will gripe, by saying NOT ENOUGH INPUTS TO SQUARE. 

After changing the definition of SQUARE, you must update the definition of SQ 
PINWHEEL, so that it uses the new definition of SQUARE. Edit PINWHEEL so that it 
becomes: 


TO PINWHEEL :SIDE 
REPEAT 36 [SQUARE :SIDE RT 10] 
END 


Then if you say PINWHEEL 50, the computer will draw a normal pinwheel; if you say 
PINWHEEL 100, the computer will draw a pinwheel that's twice as long in each 
direction; if you say PINWHEEL 30, the computer will draw a pinwheel that's small. 

Let's define POLYGON so that POLYGON 5 40 will be a regular polygon having 5 
sides, and each side will be 40 steps long. Here's how: 


TO POLYGON :N :SIDE 
REPEAT :N [FD :SIDE RT 360/:N] 
END 


In that definition, :N is the number of sides (such as 5), and :SIDE is the length of 
each side (such as 40). That definition will draw any regular polygon. For example, 
if you want a triangle so that each side is 70 steps long, say POLYGON 3 70; if you 
want an octagon so that each side is 20 steps long, say POLYGON 8 20. If you pick a 
large number of sides (such as 36), the polygon will look almost like a circle. That's 
how you can make LOGO imitate a circle! 

Let's define STAR so that STAR 5 40 will be a 5-pointed star, and each side will 
be 40 steps long. The definition is almost the same as POLYGON's: 


TO STAR :N :SIDE 
REPEAT “:N PFD! :SIDE RT: 360/3N FORE SIDE LT e072 NI 
END 


That definition makes the turtle start drawing a polygon, by drawing a polygon's 
first side (FD :SIDE), then turning right by the polygon's angle (RT 360/:N), then 
drawing the polygon's second side (FD :SIDE); but then the turtle veers sharply to 
the left (LT 720/:N). Repeating that procedure :N times produces a star: 


Choose as many points as you wish: for a 5-pointed star, say STAR 5 40; for a 
6-pointed star (a "Jewish star"), say STAR 6 40; for an 8-pointed star that's smaller 
and has just 20 steps per side, say STAR 8 20. 
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RECURSION 
Here's a poem about LOGO lovers: 


LOGO LOVERS LOOK LOVELY! 
LINGERING LINES, LONGINGLY LEFT: 


Let's program the computer so that when you say LOVERS, the computer will print 
that poem again and again, forever, like this: 


LOGO LOVERS LOOK LOVELY! 
LINGERING LINES, LONGINGLY LEFT! 


LOGO LOVERS LOOK LOVELY! 
LINGERING LINES, LONGINGLY LEFT! 


LOGO LOVERS LOOK LOVELY! 
LINGERING LINES, LONGINGLY LEFT! 


ete. 
Type this: 


TO LOVERS 

PR [LOGO LOVERS LOOK LOVELY!] 

PR [LINGERING LINES, LONGINGLY LEFT!] 
PRe{] 

LOVERS 

END 


The three PR statements make the computer print the poem and a blank line 
underneath. The bottom line says END; but above the word END, I inserted the word 
LOVERS, which makes the computer do LOVERS again, so the computer again prints 
the poem and blank line and comes to the LOVERS line again, so the computer again 
prints the poem and blank line and comes to the LOVERS line again, etc. The 
program is an infinite loop. 

After you type that definition of LOVERS, you can activate it by just saying 
LOVERS or—better yet—say TEXTSCREEN and then LOVERS. 

To abort the program, press the BREAK key. 

Notice that I inserted the word LOVERS into the definition of LOVERS, so that 
LOVERS is defined in terms of itself. That's called a se/f-referent definition or 
circular definition or recursive definition. Using recursive definitions is called 
recursion. In LOGO, recursion is the most popular way to create loops. 

Differences. Atari 800 LOGO and Radio Shack Color LOGO let you abort by 
tapping the BREAK key, but most other versions of LOGO abort differently. For IBM 
LOGO, tap the BREAK key while holding down the CONTROL key. For LOGO Writer, 
tap the ESCAPE key. For Apple LOGO 2, tap the ESCAPE key while holding down the 
Open Apple key. For Apple LOGO 1, Atari ST LOGO, DR LOGO, and MIT versions, 
tap the G key while holding down the CONTROL key. 
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COUNTDOWN 
Let's program the computer so that COUNTDOWN 10 will make the computer count 
down from 10, like this: 


10 
9 

8 

fy 
ete. 


Here's the definition: 


TO COUNTDOWN :N 
PR :N 
COUNTDOWN :N-1 
END 


To count down. from a number N, that definition tells the computer to print the 
number N and then count down from N-1. 

Unfortunately, that definition's an infinite loop! For example, if you say. 
COUNTDOWN 10, that definition will make the computer print 10, 9, 8, 7, 6, 5, 4, 3, 
2, 13) OS = 1a 253,45 ete. iorever! 

Let's edit that definition, to prevent the computer from printing negative 
numbers. Say: 


ED "COUNTDOWN 
Then use the arrow keys, to change the definition of COUNTDOWN to this: 


TO COUNTDOWN :N 
IF :N<O [STOP] 
PR :N 
COUNTDOWN :N-1 
END 


Differences. For MIT versions, omit the brackets around STOP. 
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SQUIRAL 
Let's make the computer draw the first side of a square (by saying FD :SIDE), then 
turn right 90 degrees (by saying RT 90), then draw the second side—but make the 
second side shorter than the first! Then make the third side even shorter! Then 
make the fourth side even shorter! The result will be a "shrinking square" whose 
fourth side doesn't meet the first side. It looks something like a square, but it 
spirals inward, becoming smaller. It's called a squiral. 
To create an amazing squiral, feed the computer this definition: 


TO SQUIRAL :SIDE 
ED soe DE 

Rio 

SQUIRAL :SIDE-3 
END 


The program is an infinite loop. The side becomes smaller and smaller (decreasing by 
3 each time), until finally the side becomes a negative number, which makes the 
turtle go wild and draw fascinating weird graphics on the screen. 

Feed the computer that definition. Then, for the most dramatic results, feed the 
computer this definition— 


TO DRAMATICSQUIRAL 
WRAP 

PENREVERSE 
FULLSCREEN 

SQUIRAL 100 

END 


and type: 
DRAMATICSQUIRAL 
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PRINTOUTS 
When you invent a definition, the computer puts it into a part of the RAM called the 
workspace. The workspace holds your definitions of names (such as MAKE 
"DRINKINGAGE 21) and your definitions of procedures (such as TO SQUARE do 
REPEAT 4 [FD 50 RT 90] then END). 

To see a// those definitions on your screen, say TEXTSCREEN (or TS), so that 
the computer can use the entire screen for text; then say POALL, which means Print 
Out ALL. The computer will print out all the definitions. For example, if you defined 
the name DRINKINGAGE and then MAGICNUMBER, and then defined the procedure 
SQUARE :SIDE and then PINWHEEL :SIDE, the computer will print all those 
definitions, like this: : 


TO PINWHEEL :SIDE 

REPEAT 36 [SQUARE :SIDE RT 10] 
SQUARE 

END 


TO SQUARE :SIDE 
REPEAT 4 [FD :SIDE RT 90] 
END 


MAKE '"'MAGICNUMBER 7 
MAKE "'DRINKINGAGE 21 


The computer begins with the newest procedure (PINWHEEL), then any other 
procedures (such as SQUARE), then the newest name (MAGICNUMBER), then any 
other names (such as DRINKINGAGE). 

If you don't want to see all that, you can ask for an abridgment. To see 
definitions of just the procedures (PINWHEEL and SQUARE), say POPS, which means 
Print Out ProcedureS. To see definitions of just the names (MAGICNUMBER and 
DRINKINGAGE), say PONS, which means Print Out NameS. 

To see just the top line of each procedure, say POTS, which means Print Out 
Tops or Print Out Titles; the computer will print: 


TO PINWHEEL :SIDE 
TO SQUARE :SIDE 


To see the definition of just the SQUARE procedure, say: 
PO "SQUARE 


That makes the computer print the definition of SQUARE :SIDE. To see that 
definition first, then the definition of PINWHEEL, say PO [SQUARE PINWHEEL]. 

Differences. LOGO Writer doesn't understand any of those commands; instead, 
tap the F key while holding down the CONTROL or Open Apple key, and then browse 
through all the procedures you created, by pressing the up-arrow and down-arrow 
keys. 

For MIT versions, change POALL to PO ALL, change POPS to PO PROCEDURES, 
change PONS to PO NAMES, change POTS to PO TITLES, and change PO "SQUARE to 
PO SQUARE. 
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ERASING THE DEFINITIONS 
If you no longer need the definitions you invented, you can erase them. 

To ERase ALL the definitions, say ERALL. To ERase just the definitions of 
ProcedureS (such as PINWHEEL and SQUARE), say ERPS. To ERase just the 
definitions of NameS (such as MAGICNUMBER and DRINKINGAGE), say ERNS. 

To ERase just the definition of the PINWHEEL procedure, say— 


ERASE "PINWHEEL 
or: 
ER "PINWHEEL 
To ERase just the definition of the Name MAGICNUMBER, say— 
ERN "MAGICNUMBER 


Differences. LOGO Writer doesn't understand any of those commands; instead, 
get the procedures you want to erase onto the screen, and then get rid of them by 
holding down the DELETE or BACKSPACE key. 

For MIT versions, change ERALL to ER ALL, change ERPS to ER PROCEDURES, 
change ERNS to ER NAMES, change ERASE (or ER) "PINWHEEL to ERASE (or ER) 
PINWHEEL, and change ERN to ERNAME. 


SAVING TO DISK 
After you've formatted a blank disk (by using DOS or BASIC or some other method), 
you can put that disk into the drive and copy all your definitions onto the disk. 
Here's how. 
Invent a filename (such as FRED) and say: 


SAVE "FRED 


On the disk, the computer will create a new file called FRED and will copy all your 
definitions to FRED. 
Later, whenever you want to use FRED, just say: 


LOAD "FRED 


The computer will go to the disk, find FRED, and copy FRED's definitions to the 
RAM, so you can use them. 

To see a list of all the LOGO files on your disk, say CATALOG. 

To delete FRED from the disk, say: 


ERASEFILE ''FRED 


Differences. For MIT versions, change LOAD to READ. For IBM LOGO, DR 
LOGO, and Atari ST LOGO, change CATALOG to DIR. For LOGO Writer, change 
ERASEFILE to ERPAGE, change LOAD to GETPAGE (or GP), change CATALOG to PR 
PAGELIST, and change SAVE "FRED to NAMEPAGE "FRED NEWPAGE (or NP "FRED 
NEWPAGE). For the Atari 800, change ERASEFILE to ERF, change "FRED. to 
"D:FRED, and change CATALOG to CATALOG "D:. 
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WHAT'S PASCAL? 


Imagine that you're running for President, against Calvin Coolidge. To win, you 


must pass Cal in the polls. 

You must pass Cal. "Pass Cal" is the correct way to pronounce "PASCAL", the 
name of the computer language that programmers are falling in love with. 

PASCAL is harder to learn than BASIC. But once you've learned PASCAL, you 
have amazing power: you can write fancy programs more easily in PASCAL than in 
BASIC, because PASCAL helps you organize your thinking; and your programs will 
run faster, too! 

American teachers require kids to master LOGO in elementary school, BASIC in 
high school, and PASCAL in college. Gifted kids are given the opportunity to start 
BASIC and PASCAL even sooner—and so are kids in progressive schools. Many 
high-school seniors take a PASCAL test given by the College Board; the students 
who pass can get "advanced placement" college credit for their knowledge and can 
skip the first year of college computer courses. 

Today, the most popular version of PASCAL is Turbo PASCAL. It's popular 
because it's easy to use, includes definitions of many extra commands, runs quickly, 
and costs little. It's available for the IBM PC, the Macintosh, and computers that use 
the CP/M operating system. 

This chapter explains how to use Turbo PASCAL version 4 for the IBM PC. It also 
explains how other versions of PASCAL differ. 


SIMPLE PROGRAMS 
To start using Turbo PASCAL version 4, put a DOS disk into drive A, then turn the 
computer on. When you see "A>" on the screen, press the CAPS LOCK key, so the 
computer will automatically capitalize everything you type. 
Then put the Turbo PASCAL Compiler disk into drive A. Type TURBO, so your 
screen looks like this: 


A>TURBO 


When you press the ENTER key after TURBO, the computer will display the main 
menu: 


File Edit Run Compile Options 


Choose "Edit", by tapping the E key. Then start typing a PASCAL program. 
For example, type this PASCAL program: 


BEGIN; 

WRITELN('I WOULD LIKE TO KISS'); 
WRITELNC'YOUR BOTTLE OF WINE'); 
END. 


The program begins with the word BEGIN and ends with the word END. Every line 
ends with a semicolon, except that the bottom line ends with a period. The middle 
lines say WRITELN, which tells the computer to WRITE a LiNe. 

If you wish, you can put an extra line at the top of the program, to give the 
program a name. The name can be up to 8 letters long. For example, if you want to 
name the program WINE, you can begin the program by saying PROGRAM WINE, like 
this: 


PROGRAM WINE; 

BEGIN; 

WRITELNC'I WOULD LIKE TO KISS"); 
WRITELN('YOUR BOTTLE OF WINE'); 
END. 
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When you finish typing and editing the program, tap the F10 key, which returns 
the cursor to the main menu. 

From the main menu, choose "Run", by tapping the R key. The computer will try 
to run your program. If you typed the program correctly, the computer will write on 
the bottom of the screen: 


I WOULD LIKE TO KISS 
YOUR BOTTLE OF WINE 


If you typed the program incorrectly, the computer will say gripe instead, and 
CEM eS 


error 


The computer will automatically put the cursor on your error (or nearby). Correct 
the error, by using the arrow keys, DELETE key, and other word-processin g keys. 
(To delete a whole line, move to that line, then tap the Y key while holding down the 
CONTROL key: The Y stands for "Yank it out". To insert an extra line in the middle 
of your program, move to where you want the extra line to begin, then tap the 
ENTER key, then the up-arrow.) When you've finished editing the program, return 
to the, main menu (by tapping the F10 key), then choose "Run" (by tapping the R 
key). The computer will try again to run your program. 

After the computer runs your program, tap the F10 key, which returns you to 
the main menu again. Then choose whatever you wish from the main menu. For 
example, if you want to "Edit" the program, tap the E key; if you want to "Run" the 
program again, tap the R key. 

File menu. To deal with files, choose "Files" from the main menu, by tapping the 
F key. The computer will display this file menu: 


Load 

Pick 

New 

Save 

Write to 
Directory 
Change dir 
OS shell 
Quit 


Then tap the first letter of whichever file feature interests you. 

For example, to see a directory of what's on the disk, tap D (for "Directory"), 
then ENTER (which shows the beginning of the directory, alphabetized) , then PAGE 
DOWN (which shows more of the directory), then F10 (to return to the main menu). 

To copy your program onto a disk, choose "Save" from the file menu (by tapping 
S), then type the disk's name and program's name (for example, to use disk B and 
program WINE, type B:WINE followed by ENTER), then tap F10 (to return to the 
main menu). 

If you choose "Save" again, the computer assumes you want to use the same disk 
and program name as before; you don't need to type "B:WINE" again. 

If you're tired of using WINE and want to start editing a new program instead, 
choose "New" from the file menu, by tapping N. (If you didn't save WINE yet, the 
computer will ask whether you want to save it; if you don't, tap N.) The computer 
will erase WINE from the screen and let you start typing a new program. 

Later, if you want to ever return to "B:WINE" again, choose "Load" from the file 
menu (by tapping L), then type B:WINE followed by ENTER. The computer will find 
WINE on disk B, copy that program onto the screen, and let you edit it. 

When you've finished using PASCAL, choose "Quit" from the file menu, by 
tapping Q. (If you didn't save the program yet, the computer will ask whether you 
want to save it; if you don't, tap N.) The computer will quit using PASCAL; it will 
say: 


A> 
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After the "A>", you can give any DOS command, or turn off the power. 

Other versions. To start most other versions of PASCAL, do not type the word 
TURBO. To find out what to type instead, read the manual that came with your 
version of PASCAL. If you're using somebody else's computer, ask the computer's 
owner; if you're taking a course, ask your instructor. 

Different versions of PASCAL require different commands for editing and saving 
programs. | 

Many versions of PASCAL require you to say PROGRAM WINE at the top of the 
program; if you omit saying PROGRAM WINE, those versions gripe. 

Ancient versions require you to make the top line say this: 


PROGRAM WINE CINPUT, OUTPUT) ; 


Macintosh PASCAL forces you to omit the semicolon next to the word BEGIN. 
Macintosh PASCAL automatically indents all the lines between BEGIN and END. 

Lightspeed PASCAL (which runs on the Macintosh) and Instant PASCAL (which 
runs on Apple 2e & 2c computers) both imitate Macintosh PASCAL and have the same 
peculiarities. 

For ancient versions of PASCAL for DEC-10 and DEC-20 computers, instead of 
saying-—— 
WRITELN( 
say: 


WRITELNCTTY, 


MULTIPLE WRITING 
This program belongs in your bathroom: 


BEGIN; 
WRITELNC'FAR','TIN','G'); 
END. 

The computer will write FAR, TIN, and G all on the same line, like this: 


FARTING 


MATH 
PASCAL distinguishes between integers and real numbers. Here's how PASCAL 
defines them. ... 
An integer contains no decimal point and no exponent. 


Integer Not an integer Comment 
eal meee An integer contains no decimal point. 
50000 5E4 An integer contains no exponent. 


A real number contains a decimal point or the letter E. For example, it can be 0.37 


or 5.0 or 6E24. If it contains a decimal point, you should put digits before and after 
the decimal point. 


Correct Incorrect 
Of Ro 
5.0 ae 


PASCAL, like BASIC, lets you combine numbers by using the symbols +, -, *, 
and /. If you combine a real number with another real number, the answer is real: 


4.9+2.1is the real number 7.0 (not 7) 
30. 0-5. 0 is the real number 0.0 (not 0) 


If you combine a real with an integer, the answer is still real: 


3.5*2 is the real number 7.0 (not 7) 
3/.5is the real number 6.0 (not 6) 
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If you combine an integer with an integer, the answer is an integer, except for 
division: . 

7+4 is the integer 11 

7-4 is the integer 3 

7*4 is the integer 28 

7/4is the real number 1.75 


This program makes the computer do all that arithmetic: 


BEGIN; 
WRITELN (7+4) ; 
WRITELN (7-4); 
WRITELN(7*4); 
WRITELN(7/4); 
END. 


The computer will write: 


11 
3 
28 
1 . 7500000000E +00 


Let's try writing all those numbers on the same line: 


BEGIN; 
WRITELN(7+4,7-4,7%4,7/4); 
END. 


The computer will write: 
11328 1. 7500000000E+00 


Like BASIC, PASCAL lets you use parentheses, to indicate order of operations. 
Functions. PASCAL lets you use these functions: 


Function Meaning 

ABS (-6) the absolute value of -6; it's 6 

SQR (3) the square of 3; it's 9 

SQRT (9) the square root of 9; it's 3.0 

SIN (2) the sine of 2 radians — 

Cos (2) the cosine of 2 radians 

ARCTAN (2) the arctangent of 2, in radians 

EXP (5) e*, where e is 2.71828182845904523536 
LN(9) the natural logarithm of 9; it's log, 9 


The number in parentheses can be either an integer or a real. The computer's 
answer is usually a real (exception: for ABS and SQR, the computer's answer is an 
integer if the number in parentheses is an integer). 

For example, this program computes the square root of 9: + 


BEGIN; 
WRITELNCSQRT (9) ); 
END. 


The computer will write: 
3. QOO0000000E +00 


Don't confuse SQR with SQRT. The SQR means square; the SQRT means square 
root. To find the square of 3, say SQR(3), or say 3*3. In BASIC, you could say 3%2; 
but in PASCAL, you can't use the symbol “*; use SQR instead. 

To turn a real number into an integer, use these functions: 


Function 7 Meaning 
ROUND (3.9) 3.9 rounded to the nearest integer; it's 4 
TRUNC (3.9) 3.9 truncated (by deleting the .9); it's 3 


(215) PASCAL: fun 


Other versions. Old versions of PASCAL require you to put a decimal point in 
every real number; so instead of saying 6E24, you must say 6.0E24. 

Some versions of PASCAL automatically write blank spaces in front of integers. | 

Some versions of PASCAL. write 1.75 instead of 1.7500000000E+00. Macintosh 
PASCAL automatically rounds the answer and writes 1. 8e+0. 

For UCSD PASCAL, say ATAN instead of ARCTAN. 

If you're using UCSD PASCAL on an Apple and want to use the functions SQRT, 
SIN, COS, ATAN, EXP, and LN, you must insert this line immediately under the line 
that says PROGRAM: 


USES TRANSCEND; 


VARIABLES 

You can use variables: 

VAR Here are the variables. wea 
FRED,MARTHA: INTEGER; FRED and MARTHA are ANE EGON 5 
JILL,TOM: REAL; JILL and TOM ane reals. 

BEGIN; Now Let's begin the program. 

FRED:=2; FRED (which 4s an integer) 44 2. 

MARTHA: =4+5; MARTHA (which 44 an Anteget) ts 9. 

JTRS =o 02s JILL (which is a neak) 4s 9.2. 

TOM:=1.4+2.3; TOM (which 45 a neal) 4s 3.7. 

WRITELN CFRED*MARTHA,JILL+TOM) ; Computer unites 18 and 1.2900000000E+01. 


END. 


The top line says VAR. The word VAR doesn't have a semicolon after it; the lines 
underneath VAR are indented. The indentation is optional, but is a good habit. To 
indent, tap the TAB key. On the indented lines, say which variables are integers 
and which are reals. 

Once you've indented a line, the computer automatically indents all the lines 
underneath it. If the computer automatically indents a line that you don't want to 
indent, undo the indentation, by tapping the left arrow key several times. 

In PASCAL, a variable's name can be as long as you like: the name can be FRED 
or WASHINGTON or even SUPERCALIFRAGILISTICEXPIALIDOCIOUS. The name can 
consist of letters and digits, but must begin with a letter. 

In PASCAL, you must put a colon in front of the equal sign: 


Correct Incorrect 
FRED :=2; FRED=e; 


If you wish to add a line saying PROGRAM WINE, put that line above the VAR 
line. 
You can't set an integer variable equal to a real. For example, if you say— 


VAR 
ANN: REAL; 
BILL: INTEGER; 
BEGIN; 
ANN:=3.9; 


you cannot then say: 
BILL: =ANN; 

Instead, you must say— 
BILL: =ROUND CANN) ; 

or 

BILL:=TRUNC CANN) ; 


(216) 


READLN. Instead of saying INPUT, PASCAL says READLN. 


VAR 

Xe. REAL 
BEGIN; 
WRITELNC'WHAT IS YOUR FAVORITE NUMBER?'); 
READLN(X); 
WRITELNC'ITS SQUARE ROOT IS',SQRT(X)); 
END. 


When you run the program, the computer asks: 
WHAT IS YOUR FAVORITE NUMBER? 


Then the READLN(X) statement makes the computer wait for you to input a value of 
X. The computer expects you to input a real number; if you input an integer 
instead, the computer will automatically turn it into a real. For example, if you input 
9, the computer will automatically turn it into 9.0 and will write: 


ITS SQUARE ROOT IS 3.0000000000E+00 


Other versions. Most versions of PASCAL do not automatically indent the lines 
for you. 

Old versions of PASCAL look at only the first 8 characters of a variable's name, 
and ignore the rest of the name. 

For old versions of PASCAL, say READ instead of READLN. 

For old versions of PASCAL on DEC-10 and DEC-20 computers, insert the word 
BREAK between WRITELN and READ, like this: 


WRITELNC'WHAT IS YOUR FAVORITE NUMBER?'); 


BREAK; — 
READ (X); 

COMMENTS 
To put a comment into your program, surround the comment by braces: 
BASIC PASCAL : 
10 'I HATE COMPUTERS {I HATE COMPUTERS} 


Do not put a semicolon after the comment. 


Other versions. If your keyboard is old and lacks braces, use parentheses and 
asterisks instead: 


(*I HATE COMPUTERS*) 
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IF 
The computer can criticize your age: 


VAR 
AGE: INTEGER; 

BEGIN; 

WRITELNC'HOW OLD ARE YOU?'); 

READLN (AGE) ; 

IF AGE<18 THEN 
BEGIN; 
WRITELNC'YOU ARE STILL A MINOR.'); 
WRITELNC'AH, THE JOYS OF YOUTH! '); 
END; 

WRITELNC'GLAD TO MEET YOU.'); 

END. 


The computer asks: 
HOW OLD ARE YOU? 
If you input a number less than 18, the computer replies: 


YOU ARE STILL A MINOR. 
AH, THE JOYS OF YOUTH! 
GLAD TO MEET YOU. 


If you input a number that's at least 18, the computer says just this: 
GLAD TO MEET YOU. 


In that program, the line that says "IF" is a heading (the lines underneath it are 
indented), so do not put a semicolon at the end of that line! 
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To make the program fancier, insert extra lines: 


VAR 
AGE: INTEGER; 
BEGIN; 
WRITELNC'HOW OLD ARE YOU?"'); 
READ CAGE); 
IF AGE<18 THEN 
BEGIN; 
WRITELNC'YOU ARE STILL A MINOR.'); 
WRITELNC'AH, THE JOYS OF YOUTH! '); 
Changed Line>> END 
New Line+>>>-ELSE 
New Line BEGIN; 
New Line WRITELN('I AM GLAD TO HEAR YOU ARE AN ADULT! '); 
New £ines>-> WRITELNC'NOW WE CAN HAVE SOME ADULT FUN! '); 
New Line END; 
WRITELNC'GLAD TO MEET YOU.'); 
END. 


If your age is less than 18, the computer will say: 


YOU ARE STILL A MINOR. 
AH, THE JOYS OF YOUTH! 
GLAD TO MEET YOU. 


If your age is not less than 18, the computer will say: 


I AM GLAD TO HEAR YOU ARE AN ADULT. 
NOW WE CAN HAVE SOME ADULT FUN! 
GLAD TO MEET YOU. ’ 


In that program, the line that says "ELSE" is a heading, so do not put a semicolon 
after the "ELSE". Immediately above the word ELSE, you'll see the word END; do not 
put a semicolon after that END. 

PASCAL, like BASIC, uses these symbols in the IF line: 


< > = <= Sas <> AND OR 
In the IF line, the symbol for "equals" is "="; outside the IF line, the symbol for 
"equals" is ":=". 


Instead of saying— 
IF I=3 OR I=8 OR I=25 OR I=95 THEN 
you can say: 
TEE LeING 375,207 70) HEN 
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LOOPS 
To create a loop, say FOR or REPEAT or WHILE. Here's how to use those words. 
FOR. Like BASIC, PASCAL uses the word FOR. This program makes the 
computer get drunk: 


VAR 
I: INTEGER; 

BEGIN; 

FOR I := 6 TO 10 DO 
BEGIN; . 
WRITELNC'I DRANK ',I," BOTTLES OF BEER"); 
WRITELNC'HOORAY!'); . 
END; : 

WRITELNC'NOW I AM DEAD DRUNK"); 

END. 


Since the FOR line is a heading, do not put a semicolon at the end of it. When you 
run the program, the computer will write: 


I DRANK 6 BOTTLES OF BEER 
HOORAY! 

I DRANK 7 BOTTLES OF BEER 
HOORAY ! 

I DRANK 8 BOTTLES OF BEER 
HOORAY! 

I DRANK 9 BOTTLES OF BEER 
HOORAY! 

I DRANK 10 BOTTLES OF BEER 
HOORAY! 

NOW I AM DEAD DRUNK 


If you want the computer to count backwards--from 10 down to 6—change the 
FOR line to this: 


FOR I := 10 DOWNTO 6 DO 
REPEAT. This program plays a guessing game: 


VAR 
GUESS: INTEGER; 
BEGIN; 
WRITELNC'I AM THINKING OF A NUMBER FROM 1 TO 10'); 
REPEAT 


WRITELNC'YOU HAVE NOT GUESSED MY NUMBER YET'); 
WRITELNC'WHAT IS MY NUMBER?'); 
READLN (GUESS) ; 
UNTIL GUESS=6; 
WRITELNC'CONGRATULATIONS! YOU GUESSED IT! MY NUMBER IS 6'); 
END. 


The computer begins the game by saying: 
I AM THINKING OF A NUMBER FROM 1 TO 10 
Then the computer REPEATs the following procedure several times: it says YOU 
HAVE NOT GUESSED MY NUMBER YET, asks WHAT IS MY NUMBER, waits for the 
human to input a guess, and checks whether the human guessed the number 6. It 


repeats that procedure again and again, UNTIL the human finally guesses the 
number 6. Then the computer says: 


CONGRATULATIONS! YOU GUESSED IT! MY NUMBER IS 6 


In that program, the computer REPEATs the indented lines, UNTIL GUESS is 6. 

If a program contains the word REPEAT, it must also contain the word UNTIL. 
The lines between REPEAT and UNTIL are done repeatedly. After each time, the 
computer checks whether to repeat again. 
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Since the REPEAT line is a heading, it has no semicolon. 
The UNTIL line resembles an IF statement; it can use these symbols: 


< > = <= >= < AND OR IN 


Here's another example. Let's make the computer start with the number 3 and 
keep doubling it, like this: 


Let's make the computer keep doubling, but not go over 1000. So altogether, let's 
make the computer write: 


768 
THOSE ARE ALL THE NUMBERS BELOW 1000 


Here's the program: 


VAR 
Le +LNTEGER; 
BEGIN; 
I:=3; SHOE Tatas: 
REPEAT Do the indented Lines repeatedly, until 1>=1000. 
WRITELN(I); 
I:=I*2; 


UNTIL I>=1000; 
WRITELNC'THOSE ARE ALL THE NUMBERS LESS THAN 1000'); 
END. 


WHILE. The word WHILE resembles the word REPEAT. For example, the previous 
program (which doubled 3 repeatedly) can be rewritten, by using WHILE: 


VAR 
Tes LNTEGER; 

BEGIN; 

I:=3; STOEL So. 

WHILE 1<1000 DO 14 1<1000, do the indented Lines; and repeat the Lines 
BEGIN; again and again, as kong as I nemains Less than 1000. 
WRITELN(CI); 

I:=Ix*2; 

END; 
WRITELNC'THOSE ARE ALL THE NUMBERS LESS THAN 1000'); 
END. 


The indented lines say to WRITELN(I) and then to double I. The computer will 
repeat those indented lines many times. Before each repetition, the computer checks 
to make sure I is still less than 1000. When I passes 1000, the computer stops 
looping, and instead proceeds to the next line, which says to write THOSE ARE ALL 
THE NUMBERS LESS THAN 1000. 
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Notice that these two structures serve almost the same purpose: 


Using REPEAT Using WHILE 
REPEAT WHILE 1I<1000 DO 
etc. BEGIN; 
UNTIL I>=1000; etc. 
END; 


Each of those structures makes the computer repeat the indented lines, and makes 
the computer check wither I is still less than 1000. If you say REPEAT, the check is 
done at the bottom of the loop, so the computer goes through the loop once before 
checking. If you say WHILE, the check is done at the top of the loop, so the 
computer checks whether 1<1000 before doing the loop the first time. 


ALTERNATIVES 
Every statement must end with a semicolon. You can put several statements on the 
same line: ; 


Normal Alternative 

A:=3; A:=3; B:=7.6; WRITELN(CA+B); 
B:=7.6; 
WRITELN (A+B) ; 


You can continue a statement on the next line: 


Normal Alternative | 
A:=5-2+1; A:= ; 
5- 
+4 


But do not divide a statement in the middle of a word, number, symbol, or string: 


Wrong, because Wrong, because Wrong, because 


Normal Okay middle of word middle of number middle of symbol 
IF AGE>=18 THEN IF AGE IF AG IF AGE>=1 IF AGE> 
>=18 THEN €&>18 THEN 8 THEN =18 THEN 
You can omit the semicolon after BEGIN: 
Normal Alternative 
BEGIN; BEGIN | 
You can omit a semicolon, if the next word is END: 
Normal Alternative | 
hee Se A:=3 
END; END; : 
You can omit a semicolon, if the next word is UNTIL: 
Normal Alternative . 
alse; T=1x2 
UNTIL I>=1000; UNTIL I>=1000; 
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Here's a short cut that's more useful: if a heading heads just one indented line 
(besides BEGIN and END), put that indented line next to the heading (and omit the 
BEGIN and END). ° 


Long way Short cut 


FOR I := 170 9 DO .FOR I := 1 TO 9 DO WRITELN(I); 
BEGIN; 
WRITELN (I); 
END; 


WHILE A<100 DO WHILE A<100 DO A:=A+7; 
BEGIN; 
A:=At+/; 
END; 


IF AGE>=65 THEN IF AGE>=65 THEN WRITELNC'OLD'); 
BEGIN; 
WRITELN(C'OLD'); 
PEND, 


IF WEIGHT>220 THEN IF WEIGHT>220 THEN WRITELN('FAT') ELSE WRITELNC'OKAY'); 
BEGIN; 
WRITELNC'FAT'); 
END 
ELE 
BEGIN; 
WRITELNC'OKAY'); 
END; 


REPEAT REPEAT A:=At+? UNTIL A>100; 
A:=At+/; 
UNTIL A>100; 
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GOTO 
You can say GOTO. 


LABEL 10; 

BEGIN; 

WRITELNC'MY DOG'); 

GOTO 10; 

WRITELN(C'NEVER'); 

10: WRITELNC'DRINKS WHISKEY'); 
END. 


The top line warns the computer that a future line will be labeled "line 10". The 
rest of the program makes the computer write MY DOG, then skip to line 10, which 
makes the computer write DRINKS WHISKEY. Altogether, the computer will write: 


MY DOG 
DRINKS WHISKEY 


Do not put a space between GO and TO. 
Here's another example: 


LABEL 10; 

BEGIN; 

10: WRITELNC'LOVE'); 
WRITELNC'HATE'); 
GOTO 10; 

END. 


The computer will write LOVE and HATE repeatedly: 


LOVE 
HATE 
LOVE 
HATE 
LOVE 
HATE 
etc. 


To abort the program, tap the BREAK key or C key, while holding down the 
CONTROL key. 

If your program contains lines numbered 10, 20, and 100, put this statement at 
the top of your program: 


LABEL 10,20,100; 


Put that statement at the very top of your program: the only statement that should 
go above it is one that says PROGRAM. The PROGRAM and LABEL lines go above all 
other lines—even the lines that say VAR and BEGIN. 

In PASCAL, you'll rarely need to say GOTO; instead, try using the words IF, 
ELSE, FOR, REPEAT, and WHILE. . 

Other versions. Different versions of PASCAL use different keys for aborting 
the program. 

Old versions of PASCAL require the line numbers to be small (no higher than 
S999). 

In UCSD PASCAL, if you want to say GOTO, you must say (*$G+*) at the top of 
your program: . 


(*x$G+*) 
PROGRAM SKIPPER; 


LABEL 10; 
etc. 
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PROCEDURE 
This program teases you, with the help of some insults: 


PROCEDURE INSULT; 

BEGIN; 

WRITELNC'YOU ARE STUPID'); 
WRITELNC'YOU ARE UGLY'); 
END; 


{MAIN ROUTINE} 

BEGIN; 

WRITELNC'WE ALL KNOW...'); 

INSULT; 

WRITELNC'...AND YET WE LOVE YOU'); 
END. 


That program begins by defining INSULT to be this procedure: 


WRITELNC('YOU ARE STUPID'); 
WRITELNC'YOU ARE UGLY'); 


The main routine makes the computer write 'WE ALL KNOW...', then do the INSULT 
procedure, then write '...AND YET WE LOVE YOU'; altogether, the computer will 
write: 


WE ALL KNOW... 

YOU ARE STUPID 

YOU ARE UGLY 

---AND YET WE LOVE YOU 


The PROCEDURE, called INSULT, is a subroutine. In PASCAL, subroutines come 
before the main routine. (In BASIC, subroutines come after the main routine, 
instead. ) 

Put a program's VAR above any procedures: 


VAR The program uses a variable, 
I: INTEGER; called I, which is an integer. 
PROCEDURE DOUBLE; The subroutine 4s called DOUBLE. 
BEGIN; 
bieeery The subroutine doubles the vakue of I, 
WRITELN (I); and unites the new value of I. 
END; 
{MAIN ROUTINE} Here's the main routine. 
BEGIN; 
I:=7; I starts at 7. 
DOUBLE; The computer does subroutine DOUBLE, which writes 14. 
DOUBLE; The computer does subroutine DOUBLE again, which writes 28. 
WRITELN(I+1); The computer will unite 29. 


END. 
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ROVANEEDO VARIABLES 


: CHAR 

A variable can stand for a character: 
VAR 

ANN, JOAN: CHAR; ANN and JOAN wil each be a character. 
BEGIN; 
ANN:='U'; ANN is the character 'U'. 
JOAN:='P'; JOAN is the character 'P'. 
WRITELNCANN, JOAN); The computer will write 'U' and 'P'. 
END. 
The computer will write U and P like this: 
UP 

You can put a character variable after the word FOR: 
VAR 

I: CHAR; 
BEGIN; 
FOR I/:= ‘At TO 'E' DO WRITELNG); 
END. 


The computer will write: 


moavndor 
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ARRAY 
Let's make X be this list of real numbers: 4.2, 71.6, 8.3, 92.6, 403.7, 1.4. Here's 
how: 


VAR 
X: ARRAY [1..6] OF REAL; 
BEGIN; 
X[1] :=4.2; 
X[ 2] :=71.6; 
X[3] :=8.3; 
X[4] :=92.6; 
X[ 5] :=403.7; 
X[ 6] :=1.4; 
WRITELN (X[1] +X[ 2] +X[ 3] +X[ 4] +X[ 5] +X[ 6] 7° 
END. 


The computer will write the sum, 581.8. 
Subscripts can be negative: 


VAR 
Y: ARRAY [-2..3] OF REAL; 
BEGIN; 
Y{-2] :=400.1; 
Y[-1] :=274.1; 
Y[O] :=9.2; 
Y[1] :=8.04; 
Y[{ 2] :=0.6; 
Yio) 2==5.0; 
WRITELN CY[-2] +Y[-1] +¥[ 0] +¥[1] +Y[ 2] +Y[ 3] ); 
END. 


The computer will write the sum, 687.04. 
Here's how to make Z be a table having 6 rows and 4 columns of reals: 


VAR 
Z: ARRAY [1..6, 1..4] OF REAL; 


The number in the 3rd row and 2nd column is called Z[3, 2]. The entire first row of Z 
is called Z[1]; the second row is called Z[2]; etc. For example, if you say— 


Z[5] :=Z[ 3]; 


the computer will look at the real numbers in the 3rd row of Z, and copy them into 
the 5th row. Suppose W is another array that has 6 rows and 4 columns; if you say— 


W:=Z; 


the computer will look at each real number in Z and copy it into W. 
You can have many kinds of arrays: you can have an array of REAL, an array of 
INTEGER, and even an array of CHAR. 


Ricks te 
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STRING 
A variable can stand for a string: 


VAR 

X: STRING[ 80] ; 
BEGIN; 
X:="I LOVE MY MOTH'; 
WRITELN(X,"ER"'); 
END. 


The computer will write 'I LOVE MY MOTH!’ and then 'ER’, like this: 


I LOVE MY MOTHER 


To create a string, get in the habit of saying STRING[80], which permits the 
string to contain up to 80 characters. If you need to create a string that's even 
longer than 80 characters, put a larger number in the brackets. The largest number 
permitted in the brackets is 255. If you're sure the string will be very short, you 
can put a tiny number in the brackets. 

You can make the computer read a string: 


VAR 

X: STRING[ 80] ; 
BEGIN; 
WRITELNC'WHAT IS YOUR NAME?'); 
READLN (CX) ; 
WRITELNC'HELLO ',X," THE BEAUTIFUL'); 
END. 


When you run that program, the computer asks: 
WHAT IS YOUR NAME? 


Then the READLN(X) statement makes the computer wait for you to input a string X. 
If you input the name MARILYN MONROE, the computer will write: 


HELLO MARILYN MONROE THE BEAUTIFUL 
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Other versions. Some versions let you say just STRING, instead of STRING[ 80] 
or STRING [255]. Some versions say PACKED ARRAY[1..80] instead of STRING 
[80]. 

Old versions of PASCAL don't understand STRING and don't know how to write 
an array. Instead of writing the array, you must write each character of array 
separately, by using a FOR loop: 


VAR 
X: PACKED ARRAY [1..14] OF CHAR; 
I: INTEGER; 

BEGIN; 

X:="I LOVE MY MOTH'; 

FOR I := 1 TO 14 DO WRITECX[I]); 

WRITELN('ER'); 

END. 


For those old versions of PASCAL, you must use a FOR loop to READ each 
character: 


VAR 
X: PACKED ARRAY [1..14] OF CHAR; 
Le vINTEGER; 
BEGIN; 
WRITELNC'WHAT IS YOUR NAME?'); 
FOR I := 1 TO 14 DO READCX[I]); 
READLN; 
WRITEC'HELLO '); 
FOR I := 1 TO 14 DO WRITECX[I]); 
WRITELNC' THE BEAUTIFUL"); 
END. 


That FOR loop works only if the input string contains exactly 14 characters. If 
you're not sure how many characters are in the string, you must create a FOR loop 
that's more flexible. But rather than figure out how to create such a FOR loop, your 
best bet is to get a better version of PASCAL! 
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— WELCOME TO 
CHAPTER 9: DBASE 


GET COMFORTABLE 


WHAT'S DBASE? 

DBASE is a programming language that lets you easily manipulate random-access 
files and data bases. Invented by Wayne Ratliff, it's published by Ashton-Tate, 
which has sold over a million copies. 

The original version of DBASE was called DBASE 2. It ran on the IBM PC and also 
on computers that used the CP/M operating system. 

Then came an improvement called DBASE 3, a further improvement called DBASE 
3 PLUS version 1.0, and an even further improvement called DBASE 3 PLUS version 
1.1. Those improvements run just on the IBM PC (and clones). 

Now a Macintosh version is being developed, called DBASE Mac. 

This chapter explains how to use the most popular version: DBASE 3 PLUS 
version 1.1. It also makes comments about the previous two versions (DBASE 3 PLUS 
version 1.0 and DBASE 3). 


MATERIALS 
To use DBASE 3 PLUS version 1.1, you must have an IBM PC or clone. You should 
have at least 384K of RAM. (If you have just 256K, you must modify DBASE 3 PLUS 
version 1.1, and it will run too slowly.) 

When you buy DBASE 3 PLUS version 1.1, you get two main disks (called System 
Disk 1 and System Disk 2) and five supplementary disks: a tutorial disk that helps 
beginners learn, a disk containing sample programs and utilities, an applications 
generator disk that writes programs for you automatically, and two administrator 
disks that help you run a multi-computer network. 

Old versions. DBASE 3 PLUS version 1.0 included extra disks. DBASE 3 came 
with just one main disk and 2 supplementary disks. 


HOW TO START 

Here's the simplest way to start using DBASE 3 PLUS version 1.1. (I assume that 
you—or somebody else in your company—already gave System Disk 1 an "ID", by 
following the instructions in the "Getting Started" booklet that came with the disk.) 

Put a DOS disk into drive A, then turn the computer on. When you see "A>" on 
the screen, press the CAPS LOCK key, because most DBASE programmers get in the 
habit of typing just capital letters. 

Then put System Disk 1 into drive A. Into drive B (if you have one), put a blank 
formatted disk. Type DBASE, so your. screen looks like this: 


A>DBASE 


If the bottom of the screen says "Press ENTER to assent to the License Agreement 
and begin dBASE III PLUS", obey the computer: press the ENTER key. 
At the bottom of the screen, you'll see this message: 


Insert System Disk 2 and press ENTER. 


Obey the computer: put System Disk 2 into drive A, then press the ENTER key. 

If the bottom right corner of the screen says "Exit—Esc", obey the computer: 
press the "Esc" key. ; 

At the lower left corner of the screen, you'll see a period, which is called the dot 
prompt. After the dot prompt, you can type any DBASE command you wish. 

If you're using two floppy disk drives, your first command should be SET 
DEFAULT TO B. Type the command after the dot prompt, so your screen looks like 
this: 


ese) DEFAULT 10.B 
If you're using a hard disk, type this instead: 
- SET DEFAULT TO C 
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Then give any other DBASE command you wish. The next section shows some 
examples. 

Old versions. DBASE 3 didn't require you to insert a System Disk 2. DBASE 3 
and DBASE 3 PLUS version 1.0 didn't require an "ID" for System Disk 1. 


ARITHMETIC 
If you want the computer to print the answer to 5+2, say "? 5+2" after the dot 
prompt, so your screen looks like this: 


Te BO 
The computer will print: 
i 


Notice that DBASE, like BASIC, uses a question mark to mean print. So"? 5+2" 
means: print 5+2. In DBASE, you must use the question mark; do not type the word 
PRIN, 

DBASE, like BASIC, uses the symbols +, -, *, /, *, E, and parentheses. 

Unfortunately, DBASE gives the wrong answer to -5%2. According to 
mathematicians, -542 means "the negative of 52", which is "the negative OFZ 
which is -25. DBASE mistakenly thinks that -542 means "the square of -5" and 
therefore prints 25. 


DBASE, like BASIC, lets you use CLG EAEN to create strings. So if you say— 
Pete LuLOVE, YOU! 

the computer will print: 

I LOVE YOU 


MULTIPLE COMPUTATIONS 
You can print several computations on the same line. For example, if you say— 


5 a RARE De oy Ya em) 
the computer will print: 
Satie ees Cad WE 2 


QUIT 
When you finish using DBASE, do not turn off the computer's power. Turning off the 
power will wreck the data files you've been working on. 
Instead of turning off the power, say QUIT, so your screen looks like this: 


- QUIT 


That QUIT command makes the computer put the finishing touches on all your 
data files. Then the computer will stop using DBASE, and will say: 


A> 
After the "A>", you can give any DOS command, or turn off the power. 
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HOW TO IMPROVE THE DBASE START-UP 
I showed you the simplest way to start using DBASE 3 PLUS. Now I'll show you four 
ways to oe, the process. 

If you're sharing a copy of DBASE 3 PLUS with your friends, ask them whether 
they've already made the four improvements. If they didn't, follow the instructions 
ana The instructions assume you have two floppy disk drives. 

. Instead of using System Disks 1 and 2, use backup copies of thew To make a 
packiis copy, put the DOS System Master Disk into drive A, turn on the computer 
(and type the date and time and press the CAPS LOCK key), and type "DISKCOPY 
A: B:" followed by the ENTER key. Then put System Disk 1 or 2into drive A, puta 
blank disk into drive B, and press the ENTER key again. | 

2. Instead of using a DOS disk followed by System Disk 1, use a combo disk that 
contains the essentials of both DOS and System Disk 1. Here's how to create the 
combo disk. Put a DOS System Master Disk into drive A, put System Disk 1 into drive 
B, and give these DOS commands: 


A>SYS B: 
A>COPY COMMAND.COM B: 


The disk in drive B turns into a combo disk. 

To start using DBASE, put that combo disk into drive A before you turn on the 
computer, so the combo disk lies in drive A while the computer warms up. During the 
warm-up, the computer looks at the combo disk and sees a file called CONFIG.SYS, 
which modifies the DOS to make DBASE run better. The modification remains in 
effect until you turn off the power or type a CONTROL ALT DELETE. 
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3. Modify DBASE, so that you don't have to press the Esc key and don't have to 
give the SET DEFAULT command. Here's how. System Disk 1 contains a file on it 
called "CONFIG.DB". That file says: 


STATUS=ON 
COMMAND=ASSIST ; 


Change that file, as follows. Get DOS to say "A>", then put System Disk 1 into drive 
A and type this: 


A>COPY CON CONFIG.DB 
DEFAULT=B 
STATUS=ON 


(If you're using a hard disk instead of two floppy drives, say DEFAULT=C instead of 
DEFAULT=B.) At the end of the STATUS=ON command, press the ENTER key, then 
the F6 key, then the ENTER key again. 

4. Make DBASE produce colors. If you have a color monitor, put a COLOR 
command at the beginning of the CONFIG.DB file, like this: | 


A>COPY CON CONFIG.DB 
COLOR=W/B,GR+/R,G 
DEFAULT=B 

STATUS=ON 


That COLOR command will make the computer display White characters on a Blue 
background, and display yellow ("Greenish Red intensified") characters on a Red 
background, and put a Green border around the screen. 

Old versions. DBASE 3 PLUS version 1.0 didn't let you make a backup copy of 
System Disk 1. If you're using DBASE 3, skip improvements 1 and 2; for 
improvements 3 and 4, omit the line that says STATUS=ON. 


~> 
AW 
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CREATE A FILE 


NAME THE FILE 
Let's create a data file about families in your neighborhood. Begin by saying: 


- CREATE FAMILIES 


That makes the computer create, on your disk, a data file named "FAMILIES.DBF". 
(The ".DBF" stands for "Data Base File". ) 


COMPLETE THE CHART 
Let's store each family's NAME, annual INCOME, and POPULATION (number of 
people in the family). Suppose the longest family NAME is Anagnostopoulos, the 
highest annual INCOME is 125000.00, and the largest POPULATION is 13 (because 
the family includes a mother, a father, and 11 kids). 
To prepare the computer to handle such data, feed the computer this chart: 


Field name Type Width Dec 
NAME Character 15 

INCOME Numeric 9 2 
POPULATION Numeric 2 8) 


The left column says that for each family we're storing these fie/ds: the family's 
NAME, INCOME, and POPULATION. The second column says that each family's NAME 
is a string of characters, and that each family's INCOME and POPULATION are 
numbers. The remaining columns say that each NAME can be up to 15 characters long 
(such as "Anagnostopoulos"), each INCOME can be up to 9 symbols long (such as 
125000.00) and has 2 digits after the decimal point, and each POPULATION can be up 
to 2 digits long (such as 13) and has no decimals. 

As soon as you say CREATE FAMILIES (and press the ENTER key at the end of 
that line), the computer asks you to feed it that chart. To help you start, the 
computer puts this on the screen: 


Field name Type Width Dec 


Character 


Just fill in all the other entries in the chart-—-and press the ENTER key after each 
entry. Here are the details. 


Begin by typing-— 
NAME 


and press the ENTER key at the end of that entry. Since the computer! s already 
typed the next entry for you (Character), press the ENTER key again. 

Type the next entry (15); press ENTER. Type the next entry (INCOME); press 
ENTER. 

Start typing the next entry (Numeric). As soon as you type the N of Numeric, 
the computer automatically types the "umeric" for you and presses the ENTER key 
for you. 

Type the next entry (9); press ENTER. Type the next entry (2); press ENTER. 

Type the next entry (POPULATION). Since POPULATION is so long, when you 
finish typing it the computer will automatically beep (to warn you not to make it even 
longer! ) and press the ENTER key for you. 

Type the next ENS (N), and the next entry (2); press ENTER. Type the final 
entry (0). Since you've finished typing the entire table, tap the END key while 
holding down the CONTROL Key. 
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The computer will say: 
Press ENTER to confirm. 


Obey the computer: press the ENTER key. : 
Old version. Old DBASE 3 says Char/text instead of Character, and RETURN 
instead of ENTER. 


INPUT THE DATA 
The computer will ask: 


Input data records now? (Y/N) 


Tap the Y key, which means Yes. 
On the screen, you'll see this: 


NAME 
INCOME 
POPULATION 


Notice that the NAME box is wide enough to hold 15 characters, the INCOME box 
already includes the decimal point, and the POPULATION box is wide enough to hold 
a 2-digit number. : 

Fill in the boxes. Here's how. 

Type the first family's name (SMITH). As you type SMITH, you'll see it appear in 
the first box. When you finish typing SMITH, press ENTER. 

Type the family's income (24100.19). As you type 24100.19, you'll see it appear in 
the second box. When you type the decimal point, the number will automatically slide 
toward the right edge of the box, so that the decimal point you typed is at the same 
place as the decimal point that was already in the box. When you finish typing the 
number, the computer will automatically beep and move you to the third box. 

Type the family's population (4). You'll see it appear in the third box. 

When you press the ENTER key afterwards, the computer will record what you 
typed. Then the boxes will become blank again, so that you can enter a second 
family's data. 

After entering the second family's data (and pressing the ENTER key if 
necessary), the screen will go blank again, so you can enter a third family's data. 

Enter data for as many families as you wish. 

When you've typed the data for the last family, and you're still looking at that 
data on the screen, tap the END key while holding down the CONTROL key. 

The computer will display the dot prompt, so that you can give another DBASE 
command. 


if EY = GY, ° - 
é EVE ) VO D3 


In the Smith family, the parents play while the wee ones work. 
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Séé€ YOUR DATA 


SIMPLE LISTS 
After you've created a data file, you can say: 


a) EES f 


That makes the computer list your file's information onto the screen, so the screen 
will look like this: 


Record# NAME INCOME POPULATION 
1 SMbiH 24100.19 4 
2 ANAGNOSTOPOULOS 65143.26 2 
3 SANCHEZ 50000. 00 13 
4 JONES 9873.00 2 
5 SZCZEPANKIEWICZ 125000.00 4 
6 SANTINI hb OU ebes 4 
¢ WONG 15691.18 5 


Notice that the Sanchez family has a high income (50000.00) but must split it 
among 13 people (mother, father, and 11 kids). The Jones family's population is just 
2: a single mother and her baby. The Santini family's income is a negative number 
this year, because the family invested big money in the stock market and lost. 
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CHOOSE YOUR COLUMNS 
You can make the computer omit some of the columns. If you say— 


.- LIST NAME ,POPULATION 


the computer will list the NAME and POPULATION columns but not the INCOME 
column; it will list this: 


Record# NAME POPULATION 
SMITH 

ANAGNOSTOPOULOS 

SANCHEZ 1 
JONES 

SZCZEPANKIEWICZ 

SANTINI 

WONG 


If you say— 
» LIST POPULATION,NAME 
the computer will list the POPULATION column before the NAME column, like this: 


Record# POPULATION NAME 

SMITH 
ANAGNOSTOPOULOS 
SANCHEZ 

JONES 
SZCZEPANKIEWICZ 
SANTINI 

WONG 


NOU KRWD > 
WER MWUS 


NOUR WN > 
WNEARNWY FS 


If you say— 
. LIST OFF POPULATION ,NAME 
the computer will turn off the "Record#" column; it will list just this: 


POPULATION NAME 

SMITH 
ANAGNOSTOPOULOS 
SANCHEZ 

JONES 
SZCZEPANKIEWICZ 
SANTINI 

WONG 


For each family, let's compute the income per person. To do that, divide the 
family's income by the family's population. To display the income per person, and 
everything else, say— 


. LIST NAME ,INCOME ,POPULATION, INCOME /POPULATION 


The computer will list this: 


NENW 


Record# NAME INCOME POPULATION INCOME/POPULATION 
1 SMITH 24100.19 4 : 6025.05 
2 ANAGNOSTOPOULOS 65143.26 P) 13028.65 
3 SANCHEZ 47200.00 3 3846.15 
4 JONES 9873.00 2 4936.50 
5 SZCZEPANKIEWICZ 125000. 00 & 51:250. 00 
6 SANTINI -4130.15 4 -1032.54 
¢ WONG 15691 ms Sco eo? 
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LIST FOR 
To list just the low-income families (earning under $10,000), say: 


. LIST FOR INCOME<10000 


The computer will list: 


Record# NAME INCOME POPULATION 
4 JONES 9873.00 Z 
6 SANTINI -4130.15 4 


To list just the high-income families (earning at least $50,000), say: 
. LIST FOR INCOME>=50000 


That means: list for INCOME greater than or equal to $50,000. 


When you're comparing strings, an equal sign means "begins with". So to list 
every family whose NAME begins with "SAN", say: 


- LIST FOR NAME="'SAN" 


The computer will list all data about SANCHEZ and SANTINI. 
To list every family whose NAME does not begin with "SAN", say— 


- LIST FOR NAME<>"'SAN" 
or, if you prefer, say: 
- LIST FOR NAME#''SAN" 
To list just the "SAN" families whose incomes are high, say: 
. LIST FOR NAME="'SAN" .AND. INCOME>=50000 


That makes the computer list the data for SANCHEZ (whose income is 50000) but not 
SANTINI (whose income is -4130.15). Notice you must put periods around the word 
AND. 

DBASE also understands the word OR, which you must also surround with 
periods. 

If you want to change DBASE, so that an equal sign between strings means 
"exactly equals" instead of "begins with", say: 


- SET EXACT ON 
The SET EXACT ON command remains in effect until you say QUIT or SET EXACT 
OFF. 
LIST STRUCTURE 
If you say— 
- ALOT RUCTURE 


the computer will say: 


Field Field name Type Width Dec 
1 NAME Character 15 
2 INCOME Numeric 9 2 
3 POPULATION Numeric 2 

xx Total xx cL 


The computer will also say that the file contains 7 records, and it will say the date 
that the file was last changed. 
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COMPUTE THE STATISTICS 
If you say— 


- COUNT 
the computer will count how many records are in the file. It will say: 
7 records 
If you say— 
- SUM 
the computer will sum all the numbers in the file. It will say: 


7 records summed 
INCOME POPULATION 
285677.48 35 


That means: the sum of all the incomes is $285,677.48, and the sum of all the 
populations is 35. So altogether, your entire neighborhood earns a total of 
$285,677.48, and the neighborhood's total population is 35. 

If you say— 


.- AVERAGE 


the computer will average all the numbers in the file. It will say: 


7 records averaged 
INCOME POPULATION 
40811.07 5 


That means the average family INCOME is $40,811.07, and the average family 
POPULATION is 5. (The average family population would be much lower if the 
Sanchez family didn't have 13 members. ) 

After the word COUNT, SUM, or AVERAGE, you can add restrictions. For 
example, if you want to find the average of just the SANCHEZ and SANTINI families, 
say: 


. AVERAGE FOR NAME="'SAN" 
The computer will say: 


2 records averaged 
INCOME POPULATION 
22934.92 8 


(The average population is actually 8.5, not 8; but DBASE doesn't bother printing 
the .5). If you want to average just the incomes, and don't want to bother averaging 
the populations, say: 


. AVERAGE INCOME FOR NAME="'SAN" 
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PRINT ON PAPER 
To print on paper, you can use several tricks. 
The simplest is to tap the PrtSc key while holding down the SHIFT key. That 
makes the printer print a snapshot of what's on the screen. 
Another way is to type: 


- SET PRINT ON 


Afterwards, anything that will appear on the screen will also appear on paper 
simultaneously. The SET PRINT ON command remains in effect until you say SET 
PRINT OFF. 

The most reliable way to LIST onto paper is to say: 


- SET PRINT ON 
ae 
“TOG PRINT WO be 


A quicker way to LIST onto paper is to say: 
- LIST FO PRINT 


But unfortunately, if you say LIST TO PRINT, the last line of the listing gets 
temporarily lost, in a part of RAM called the "buffer". That last line won't get 
transferred to paper until afterwards, when you give your next print-to-paper 
command, or when you say SET PRINT ON. 

Old version. Old DBASE 3 does not lose the last line of the listing. 


INTERRUPT THE COMPUTER 
If the computer is doing something you don't like, and you want to stop the 
computer, press the ESCAPE key (which says "Esc" on it). That makes the computer 
abort what it was doing. 

For example, suppose you say LIST, and the computer starts printing a long 
listing. If you get impatient and don't want to see the rest of the listing, press the 
ESCAPE key. 

In some situations, when you press the ESCAPE key, the computer asks: 


Cancel, Ignore, or Suspend? (C, I, or S) 


Confirm that you want to cancel: press the C key. 

After the computer aborts, it displays the dot prompt, so you can give another 
DBASE command. 

In DBASE, as in IBM's BASIC and PC-DOS, you can make the computer pause by 
tapping the NUM LOCK key while holding down the CONTROL key. To make the 
computer continue where it left off, press the SPACE bar. 

If you say DISPLAY ALL instead of LIST, the computer will list the file but will 
automatically pause at the end of each screenful. At the end of each screenful, it will 
say, "Press any key to continue". When you press the SPACE bar (or any other 
typical key), the computer will continue on to the next screenful. 

Short-cut: instead of saying DISPLAY ALL FOR NAME="SAN", you can say 
DISPLAY FOR NAME="SAN". Here's the rule: before the word FOR, you can omit 
ALL. 

Old version. Instead of oie "Cancel, Ignore, or Suspend?", old DBASE 3 asks 
"Terminate command file?" To answer that question, tap the Y key. 


a 
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GRAB A PARTICULAR RECORD 
To list just the 3rd record, say: 


saLES WeRECORD jo 


The computer will say: 


Record# NAME INCOME POPULATION 
3 SANCHEZ 50000. 00 V3 
Instead of saying LIST RECORD 3, you can say: 
GOW) 
2 DISPLAY 


That makes the computer GO to record #3 and DISPLAY it. That pair of lines (GO 3 
and DISPLAY) has exactly the same effect as saying LIST RECORD 3. 

After you've gotten the record, you can use that record's NAME, INCOME, and 
POPULATION for further computations. For example, if you say— 


- 2? INCOME/20 
the computer will print that record's INCOME divided by 20, which is: 
2500.00 


To go to record #1, which is the top record, you can say either GO 1 or GO TOP. 
If your file contains 7 records, and you want to go to record #7, which is the bottom 
record, you can say either GO 7 or GO BOTTOM. (After giving a GO command, 
remember to say DISPLAY.) 

If you're lazy, you can usually omit the word GO. Instead of saying— 


su GOS 
you can say just: 
ee) 


But you cannot omit the GO from "GO TOP" and "GO BOTTOM". 

SKIP means "go to the next record". For example, suppose you've been looking at 
record #3 (because you said GO 3 and DISPLAY), and you want to go to the next 
record, which is record #4. Just say: 


- oKIP 
. DISPLAY 


If you say SKIP 2, the computer will skip ahead 2 records. For example, if you've 
been looking at record #4 and then say SKIP 2, the computer will go to record #6. 

If you say SKIP -1, the computer will skip back to the previous record. For 
example, if you've been looking at record #6 and then say SKIP -1, the computer will 
go back to record #5. 

If you say— 


. LOCATE FOR NAME="'SAN" 
= DESPLAY. 


the computer will start at the first record, and keep hunting until it finds a record 
whose NAME begins with "SAN". Then it will DISPLAY that record: 


Record# NAME INCOME POPULATION 
3 SANCHEZ 50000. 00 13 

To find the next "SAN", say: 

. CONTINUE 

- DISPLAY 

The computer will display: 

Record# NAME INCOME POPULATION 
6 SANTINI -4130.15 1M) 
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If you say CONTINUE again, the computer will continue hunting for SAN's. If the 
computer reaches the end of the file and still hasn't found another SAN, it will give 
up, and say: 


End of LOCATE 


ATTACH FANCY RESTRICTIONS 
If you say: 


BEALe{e eS i 
- DISPLAY 


the computer will display just the 3rd record. If you say— 


sr OOm 
- DISPLAY NEXT 2 


the computer will display 2 records (the 3rd and the 4th). If you say— 


ouGOe 
- DISPLAY NEXT 4 


the computer will display 4 records (the 3rd, 4th, 5th, and 6th). If you say— 


BAe 6 ae 
- DISPLAY REST 


the computer will display the 3rd record and all the records that come after it. For 
example, if the data file contains 7 records, the computer will display the 3rd, 4th, 
oth, 6th, and 7th records. (If your data file is long, the computer will pause at the 
end of each screenful, and wait for you to tell it to continue. If you don't want such 
pauses, say LIST instead of DISPLAY.) 

If you say— 


G00) 
- DISPLAY WHILE INCOME<100000 


the computer will start with the 3rd record, and com ais displaying records as long 
as INCOME<100000. Here are the details. ... 

The computer starts with the 3rd record, sees that its INCOME is less than 
100000, and displays that record. Then the computer checks the 4th record, sees its 
INCOME is less than 100000, and displays that record. Then the computer checks the 
oth record, sees its INCOME is not less than 100000, and refuses to display the 5th 
record. The computer stops there, and refuses to look at any more records. So the 
only records it displays are the 3rd and 4th. 

Those four commands—DISPLAY and DISPLAY NEXT and DISPLAY REST and 
DISPLAY WHILE—are all affected by where you said to GO. Three different 
commands—DISPLAY ALL and DISPLAY RECORD and DISPLAY FOR—are unaffected 
by GO. Even if you said GO 3, a DISPLAY ALL will display the entire file, DISPLAY 
RECORD 2 will display record #2, and DISPLAY FOR INCOME<100000 will display al/ 
the records whose INCOMEs are less than 100000. 

The words NEXT, REST, WHILE, ALL, RECORD, and FOR are called 
restrictions. You can attach a restriction to any DBASE command that scans data 
records. For example, you can add a restriction to DISPLAY, LIST, COUNT, SUM, 
AVERAGE, and LOCATE. 

Old version. Old DBASE 3 doesn't understand the word REST. 


[oasteessS)] 
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Rev pr 1OUR DATA 


EDIT 
To edit record #3, say— 


| EDL GARECORD@> 
or say-— 

Pee Dili. 

or say: 


ep OUP 
ee GOLE 


The computer will display the 3rd record on the screen and let you edit it. While 
you edit, you can use the four arrow keys (to move around the screen), the 
BACKSPACE key (to erase the previous character), the DELETE key (to delete the 
current character), and the INSERT key (to switch from "replacing" to "inserting" 
and back to "replacing" again). DBASE handles those keys the same way as good 
word processors (such as Writing Assistant and Word Perfect). 

To erase all the data in a field, just move to that field (by using the arrow keys) ; 
then tap the Y key while holding down the CONTROL key. 

After editing the 3rd record, if you press the PAGE DOWN key, the computer will 
let you edit the 4th record. If you press the PAGE DOWN key again, the computer 
will let you edit the 5th record. (Exception: if a record is too long to fit on the 
screen, pressing the PAGE DOWN key will get you the next screenful of the same 
record. ) 

By pressing the PAGE UP key, you can return to earlier records. For example, Tf 
you've been editing the 5th record and then press the PAGE UP key, the computer 
will let you re-edit the 4th record. 

When you've finished editing all the records you wish, tap the END key while 
holding down the CONTROL key. Then the computer will display the dot prompt, so 
you can type another DBASE command. 


BROWSE 
To see several records on the screen simultaneously, so you can edit them all at 
once, say: 


eT GOw 
- BROWSE 


That makes the computer LIST the first several records in your file. The computer 
will let you use the arrow keys to move through the list and edit your data. 

The computer will list as many records as can fit on the screen; to see the next 
sereenful of records, press the PAGE DOWN key. The computer will list as many 
fields as can fit across the screen; to see other fields, tap the right-arrow key while 
holding down the CONTROL key. 

When you've finished editing the data, tap the END key while holding down the 
CONTROL Key. 
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REPLACE 

A more literary way to edit records is to type a sentence that begins with the word 
REPLACE. 

For example, to change record #3's INCOME to $60,000, say: 


2s GOS 
- REPLACE INCOME WITH 60000 


To increase record #5's INCOME by $700, say: 


2 G0F 
- REPLACE INCOME WITH INCOME+700 


To increase everybody's INCOME by $700, say: 
. REPLACE ALL INCOME WITH INCOME+700 
To increase the INCOME of just families whose NAME begins with "SAN", say: 
- REPLACE FOR NAME="'SAN'' INCOME WITH INCOME+700 


ADD EXTRA RECORDS 
To add extra records, say: 


- APPEND 


The computer will display a blank record on the screen, and let you fill it in. For 
example, if your data file contains 7 records, and you say APPEND, the computer 
will let you type record #8. When you finish typing it (and press the ENTER key at 
the end of the last field), the computer will let you type record #9, then record #10, 
etc. When you've finished typing all the records you want to add, tap the END key 
while holding down the CONTROL key. Then the computer will display the dot 
prompt, so you can type another DBASE command. 
To insert an extra record between record #3 and record #4, say: 


se G0US 
- INSERT 


The computer will display a blank record on your screen, and let you fillit in. When 
you finish filling it in, tap the END key while holding down the CONTROL key. The 
new record that you typed will become record #4; the old record #4 will become 
record #5; the old record #5 will become record #6; etc. The computer will then 
display the dot prompt, so you can type another DBASE command. 


aie 
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DELETE UNWANTED RECORDS 
To delete records 3, 5, and 6, say: 


+ DELETE ‘RECORD-S 
a DELETE, RECORDXS 
=) DEBETESRECORDYWO 
» PACK 


Here's why. When you give the DELETE commands, the computer makes notes 
about which records you want to delete. But it doesn't actually delete those records, 
until you say PACK. 

When you say PACK, the computer finally deletes those records. It also 
renumbers all the other records, to fill the gaps left by the records you deleted. 

Renumbering all the records takes a long time; so while the computer's doing a 
PACK, you should take your coffee break or lunch break. If you don't want to take a 
break yet, delay saying PACK until later. Say PACK at the end of the day, or when 
it's time to QUIT or to switch to a different file. 

DELETE without PACK. If you said to DELETE some records, but you haven't 
said PACK yet, what happens when you try to LIST the file? The listing will show an 
asterisk next to each record you said to delete. The asterisked records will 
disappear later, when you say PACK. 

If you say— 


=oEd DELETED. ON 


the computer hides the asterisked records, so they don't appear in listings and don't 
affect the COUNT or SUM or AVERAGE. But although the asterisked records are 
hidden, they're still in the file, until you say PACK. 

SET DELETED ON remains in effect until you say QUIT or SET DELETED OFF. 

RECALL. If you say DELETE RECORD 3, and then change your mind, you can get 
the record back by saying RECALL RECORD 3. But RECALL works only if you 
haven't said PACK yet. 

Short cuts. Instead of saying DELETE RECORD 3, you can say: 


Jy FeLO ue: 
SOELETE 


Here's another way to delete record 3: get that record onto your screen (by saying 

EDIT or BROWSE, and playing with the PAGE UP and PAGE DOWN keys); and while 

you're looking at that record, tap the U key while holding down the CONTROL key. 
To delete everybody whose name begins with "SAN", say: 


. DELETE FOR NAME="'SAN" 
- PACK 


To delete a// the records, instead of saying DELETE ALL and PACK, just say: 
. ZAP 


Then the computer asks whether you're sure; tap the Y key. Then the computer 
ZAPs the file, so that all the records are gone. But the computer will still remember 
how wide you wanted each field, so you can add new records without having to say 
CREATE. 
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SWITCh FILES 


USE 
Suppose you create a DBASE file called FAMILIES.DBF, then create a DBASE file 
called FOODS.DBF. If you say LIST, the computer will assume you want to list the 
newest file (FOODS.DBF). If you want to list FAMILIES.DBF instead, say: 


s USE)RAMIELES 
SLi Sa 


Saying USE FAMILIES makes the computer switch its attention to FAMILIES. DBF, 
so that any future command you give (such as LIST or GO or DISPLAY) applies to 
FAMILIES.DBF. To switch to FOODS.DBF again, say USE FOODS. 

If you QUIT using DBASE but return to DBASE later, the computer forgets which 
file you were using. Before saying LIST, say USE FAMILIES or USE FOODS. 


DIR 
To see a directory of your entire disk, say: 
oe DIRRR AX 


To see a special directory of just your DBASE data files (which end in .DBF), say 
just: 


su 


That makes the computer print a special directory showing each data file's name, how 
many records it contains, how eny bytes it contains, and the date it was last 
changed. 


COPY 
Suppose you're using the FAMILIES.DBF file, and want to make a packan copy of it. 
If you want the backup copy to be called FRED.DBF, say: 


a CUP YsO. FRED 


That makes FRED.DBF be an exact copy of the whole file. 
If you want FRED.DBF to include just the records of families whose names begin 
with "SAN", say: 


- COPY TO FRED FOR NAME="SAN" 


If you want FRED.DBF to include every family's NAME and POPULATION but not 
the INCOME, say: 


- COPY TO FRED FIELDS NAME ,POPULATION 


If you want FRED.DBF to include no records at all, but just have the same 
structure (the same lengths for all the fields), say: 


. COPY STRUCTURE TO FRED 


If you want FRED.DBF to contain all the records, but rearranged so that the 
NAMEs are in alphabetical order, say— 


- SORT ON NAME TO FRED 


If you want. FRED.DBF to contain all the records, but rearranged so that the 
INCOMEs are in increasing order, say— 


- SORT ON INCOME TO FRED 


If you want FRED.DBF to contain all the records, but rearranged so that the 
INCOMEs are in decreasing order (from the largest to the smallest), say— 


- SORT ON INCOME/D TO FRED 
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ERASE 
If you ever want to erase FAMILIES.DBF, say: 


- ERASE FAMILIES.DBF 


Hassle. The computer will refuse to ERASE FAMILIES.DBF, if you're still in the 
middle of using that file. To stop using it (so you can erase it), tell the computer to 
use a different file instead (by giving a command such as USE FOODS), or just say— 


2 USE 


which makes the computer use no file at all. Then you can say ERASE 
FAMILIES.DBF. 


MODIFY THE STRUCTURE 
When you said CREATE, you filled in a chart: for each field you chose a name (such 
as INCOME), type (such as Numeric), and width (such as 9). 
If you later want to modify that chart, say: 


- MODIFY STRUCTURE 


The screen will again show the chart that you created. By using the arrow keys, you 
can move through the chart and modify it. You can change a field's name, type, 
width, or number of decimal places. 

To delete a field altogether, move to that field, then tap the U key while holding 
down the CONTROL key. (The U stands for Undo.) 

To insert an extra field, move to where you want the field to be, then tap the N 
key while holding down the CONTROL key. (The N stands for iNsert New.) 

Change as many fields as you like. 

When you've finished modifying the chart, tap the END key while holding down 
the CONTROL key. If the computer asks "Should data be COPIED from backup for all 
fields?", tap the Y key. 

The computer will say: 


Press ENTER to confirm. 


Obey the computer: press the ENTER key. 

The computer will revise your entire data file, so that the file matches the chart. 
For example, if you said to make a field wider, the computer will do so by adding 
extra spaces to your data; if you said to make a field narrower, the computer will do 
so by abridging your data. 

To see what the computer did to your data file, say LIST. 

Hassles. If you change names of fields, the computer gets confused if you change 
anything else at the same time. So to make lots of changes, say MODIFY 
STRUCTURE, then change names of fields, then say MODIFY STRUCTURE again, 
then make all the other changes you wish (widths, decimal places, types, deleted 
fields, and extra fields). 

After giving the MODIFY STRUCTURE command, your disk will contain two 
versions of your data file. For example, if you've been dealing with FAMILIES.DBF, 
your disk will contain a file called FAMILIES.DBF (which is the new, modified 
version), and your disk will also contain a file called FAMILIES.BAK (which is the 
previous unmodified version). FAMILIES.BAK is called the backup: use it only if 
you accidentally made a mistake when giving the MODIFY STRUCTURE command. To 

use FAMILIES.BAK, say: 


weUSE 

- ERASE FAMILIES. DBF 

- RENAME FAMILIES.BAK TO FAMILIES.DBF 
- USE FAMILIES 
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HOW TO INDEX 
Suppose you're using a file called FAMILIES.DBF. Let's play a trick, so that every 
time you say LIST or DISPLAY, the NAMEs will appear in alphabetical order, and so 


that you can find a particular NAME very quickly. 
Say: 


- INDEX ON NAME TO FAMNAME 


That makes the computer create a file called FAMNAME.NDX, which is an iNDexX file 
that helps the computer find each family's NAME. 
Then if you say LIST, the computer will list the families in alphabetical order: 


Record# NAME INCOME POPULATION 
2 ANAGNOSTOPOULOS 65143.26 5 
4 JONES 9873.00 2 
3 SANCHEZ 50000. 00 13 
6 SANTINI -4130.15 4 
1 SMITH 24100.19 4 
5S SZCZEPANKIEWICZ 125000.00 4 
¢ WONG 15691.18 3 
In that file, the TOP record is record #2: ANAGNOSTOPOULOS. So if you say— 
- GO TOP 
- DISPLAY 
the computer will display: 
Record# NAME INCOME POPULATION 
2 ANAGNOSTOPOULOS 65143.26 5 
Then if you say— 
. SKIP 
- DISPLAY 
the computer will skip to the next record in the alphabetized list, and display: 
Record# NAME INCOME POPULATION 
4 JONES 9873.00 2 


In that alphabetized file, saying GO TOP has a different effect from saying GO 1. 
If you say GO TOP, you're going to the TOP record, which is ANAGNOSTOPOULOS;; 
if you say GO 1, you're going to the record #1, which is SMITH. 

If you want to add more records to the alphabetized list, say APPEND. As you 
type the extra records, the computer will automatically update the index file, so 
when you say LIST you'll see the entire data file—including even the new 
records—in alphabetical order. 


a Yy 


oa 
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HOW TO FIND 
To display the first record whose NAME begins with SAN, you can still say— 


. LOCATE FOR NAME="'SAN"' 
- DISPLAY 


But to find that record more quickly, say this instead: 


- SEEK "SAN" 
s DISPLAY 


‘After SEEK, notice you must put the string in quotes (or use a variable). To avoid 
quotes, say FIND instead: 


- FIND SAN 
- DISPLAY 


The words SEEK and FIND tell the computer to find the record immediately, by 
using the index file. Unfortunately, the word LOCATE makes the computer locate the 
record slowly, by searching through all the records in the whole data file, from 
beginning to end. If your data file is very long, you'll have to wait a long time for 
the computer to LOCATE the record! For example, if your data file contains 2,000 
records, the LOCATE command takes about 25 times as long as the SEEK and FIND 
commands. The main reason for creating an index file is so that you can use the 
words SEEK and FIND. 

Since the index file makes the computer list all the names in alphabetical order, 
all the SAN names are listed near each other. So after you've found the first SAN 
(by saying FIND SAN and DISPLAY), you can display the next one immediately, by 
saying: 
prowl 
- DISPLAY 


HASSLES 
If you QUIT or switch to a different data file, and later try to return to 
FAMILIES.DBF by saying USE FAMILIES, you must remind the computer to look at 
the index file. Instead of saying just USE FAMILIES, say: 


. USE FAMILIES INDEX FAMNAME 


If you accidentally forget to say INDEX FAMNAME, the computer will forget to 
look at the index. If you then APPEND or DELETE some records, the computer won't 
update the index, and the index will be wrong. If you get into that jam, get out of it 
by saying— 

. USE FAMILIES INDEX FAMNAME 
- REINDEX 


That makes the computer create the index all over again, correctly. 
To see the names of all your index files (such as FAMNAME.NDX), say: 


- DIR *.NDX 
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SIMPLE PROGRAMS 
Let's write a program so that whenever you say DO STATS, the computer will 
automatically print the SUM and AVERAGE of all the numbers in your data file. 
Here's how. 
Begin by saying— 


- MODIFY COMMAND STATS 


That tells the computer you want to write a program called STATS.PRG. 
Next, say what you want STATS to stand for. If you want STATS to stand for 
"the SUM followed by the AVERAGE", type: 


SUM 
AVERAGE 


That pair of instructions (SUM and AVERAGE) is called the program. The computer 
does not put a dot prompt in front of the program lines. 

While you're typing the program, you can edit it by using the arrow keys and all 
the other word-processing keys (DELETE, INSERT, PAGE UP, and PAGE DOWN). 

To hop to the left margin, tap the left-arrow key while holding down the 
CONTROL key. To delete a line, move to that line, then tap the Y key while holding 
down the CONTROL key. (The Y stands for "Yank it out".) To insert an extra line 
between two other lines, move to where you want the extra line to begin, then tap 
the N key while holding down the CONTROL key. (The N stands for "iNsert New”. ) 

When you've finished typing and editing the program, tap the END key while 
holding down the CONTROL key. That makes the computer put the entire program 
onto the disk. Then the screen will show a dot prompt. 

If you want the computer to DO the STATS program you typed, say: 


- DO STATS 


Then the computer will print the SUM and AVERAGE of all the numbers in the 
current data file. For example, if you've been using the FAMILIES data file, the 
computer will print the SUM of the INCOMEs, SUM of the POPULATIONs, AVERAGE 
of the INCOMEs, and AVERAGE of the POPULATIONS. (If you haven't been using a 
data file, the computer will ask you which file to USE. If your data file doesn't 
contain any Numeric fields, the computer will gripe.) 

If you ever want to revise that program, just say MODIFY COMMAND STATS 
again. The screen will show your program again and let you edit it. When you've 
finished editing it, tap the END key while holding down the CONTROL key. The new 
version of your program will be called STATS.PRG; the previous version of your 
program will still be on the disk, but will be called STATS.BAK. 

For another example, let's program the computer so that when you say DO 
SUPERDIR, the computer will print a superdirectory. Let's make the superdirectory 
include a directory of all your data files, followed by a directory of all your index 
files, followed by a directory of all your program files. 

To make DO SUPERDIR accomplish all that, say: 


- MODIFY COMMAND SUPERDIR 
Then type this program— 


DIR 
DIR *.NDX 
DIR *.PRG 


End the program by tapping the END key while holding down the CONTROL key. 
From then on, whenever you say DO SUPERDIR, the computer will print a 
superdirectory. 
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Into a program, you can put any DBASE commands you wish. For example, your 
program can include a USE command (to switch to a different data file), an APPEND 
command (to let the user add extra records to the file), and a BROWSE command (to 
let the user browse through the entire file and edit it). 

One of the lines in your program can even say to DO a second program. When the 
computer encounters that line, the computer will DO the second program, then finish 
the original program. 

Your program's bottom line can even say QUIT, so that when the computer 
finishes the program it will stop using DBASE. 

POEM. Let's program the computer so that whenever you say DO POEM, the 
computer will print this poem: 


YOUR DATA FILES 
ALL GIVE ME SMILES. 
I FEEL SO LOW, 
WHEN THEY MUST GO. 
PLEASE DON'T ERASE 
YOUR DATABASE! 

LOVE, 

YOUR COMPUTER 


Here's how: 


MODIFY COMMAND POEM 
"YOUR DATA FILES" 
"ALL GIVE ME SMILES." 
eeEEEL SOO jLOW, ; 
"WHEN THEY MUST GO." 
"PLEASE DON'T ERASE" 
"YOUR DATABASE! 

tt EOVE« 

e YOUR COMPUTER" 


But typing all those question marks and quotation marks is ridiculous! For a 
short-cut, type this instead: 


. MODIFY COMMAND POEM 
TEXT 
YOUR DATA FILES 
ALL GIVE ME SMILES. 
I FEEL SO LOW, 
WHEN THEY MUST GO. 
PLEASE DON'T ERASE 
YOUR DATABASE! 
LOVE, 
YOUR COMPUTER 
ENDTEXT 


The words TEXT and ENDTEXT tell the computer that everything between them 
should be printed as strings. When typing that program, you can indent LOVE and 
YOUR COMPUTER easily, by tapping the TAB key. 


2D 2D DD 0D D-DD * 
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TRICKY OUTPUT 
Here are some commands you can put in your program, to produce tricky output. 
To erase the screen, say: 


CLEAR 
If you say-- 


PeUTATS 
2? “HER” 


the double question mark makes the computer print HER on the same line as FAT. 
The computer will print: 


FATHER 


When using DBASE, the screen's top line is called line 0. Then come lines 1, 2, 
etc. In each line, the leftmost character is at position 0. Then come positions 1, 2, 
ete. To print the word DROWN, beginning at line 3's 7th position, type this: 


@3,7 SAY ''DROWN" 


SET HEADING OFF. When you say LIST, DISPLAY, SUM, or AVERAGE, the 
computer prints data in columns and puts a heading at the top of each column. If you 
want the computer to omit the headings, say: 


SET HEADING OFF 


That command remains in effect until you say SET HEADING ON (or QUIT). 

To invent your own customized headings, first get rid of the traditional headings 
(by saying SET HEADING OFF) and then print your own headings (by giving the "2" 
or "@ SAY" commands). 

SET TALK OFF. While running your program, the computer prints messages 
telling you which records and numbers it's manipulating. For example, if you say GO 
3 and then SKIP 2, the computer prints a message saying it's skipping to record #5. 
If you say to COPY a file, the computer prints messages telling you how many 
records it's copied so far, until all the records are copied. 

Those messages help DBASE programmers but confuse business executives who 
don't understand the messages' jargon. To stop the computer from printing those 
messages, say: 


SF aALRLOFE 


That command remains in effect until you say SET TALK ON. 
If you say SET TALK OFF, you'll have a hard time doing statistics: the simple 
COUNT, SUM, and AVERAGE commands don't work until you say SET TALK ON. 
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, ‘VARIABLES 
Like BASIC, DBASE lets you use variables easily. For example, if you say-— 


X=7-1 
2 X+3 


the computer will print 9. 

(While the computer performs X=7-1, the computer will also print a little message 
saying that X is 6, unless you say SET TALK OFF.) 

A variable's name can be short (such as X) or longer. It can be up to 10 
characters long (such as POPULATION). It can include underlines and digits (such 
as LOST_IN_86). It must begin with a letter. It cannot include blank spaces. 

A variable can stand for either a number or a string. For example, if you say— 


HUSBAND=""TOM" 
2? HUSBAND 


the computer will print TOM. 

The computer handles two kinds of variables. A field variable stands for a field in 
a data file. For example, while you're using FAMILIES.DBF, you're using - field 
variables called NAME, INCOME, and POPULATION. A memory variable is any 
variable that does not stand for a field. For example, if you say X=7-1, the X is a 
memory variable. 

Suppose you're using FAMILIES.DBF, so INCOME is a field variable. To change a 
family's INCOME to 20000, do not say INCOME=20000. Instead, say: 


REPLACE INCOME WITH 20000 


Here's the rule: to change the value of a memory variable, say "="; to change the 
value of a field variable, say "REPLACE". 


‘The computer will remember all your variables until you say CLEAR MEMORY 
(which erases the memory variables) or say to USE a different data file (which 
affects the field variables) or say CLEAR ALL (which erases a// the variables and 
also makes the computer forget which file you were USEing). 

The typical DBASE program begins by saying CLEAR ALL and ends by saying 
CLEAR ALL again, to make sure the variables from different programs don't 
interfere with each other. 

In other languages, such as BASIC and PASCAL, you can let X stand for a whole 
list of numbers, by using subscripts and saying DIM or DIMENSION. Unfortunately, 
DBASE 3 PLUS doesn't understand subscripts or DIM or DIMENSION. To make X be a 
list of numbers in DBASE 3 PLUS, you have to make X be a data file and then put the 
numbers into the file. 

A company called Nantucket Software has invented Clipper, which resembles 
DBASE 3 PLUS very closely but in some ways is better. Clipper understands 
subscripts. | 

STORE. Instead of saying X=7-1, you can say STORE 7-1 TO X. Saying "STORE 
7-1 TO X" has exactly the same effect as saying "X=7-1". 

To make X, Y, and Z all be zero, say: 


STORE? OELO X,Y, 2 
Statistics. To make X be the SUM of all the INCOMEs in your data file, say: 
SUM INCOME TO X 


To make X be the SUM of all the INCOMEs and also make Y be the sum of all the 
POPULATIONS, say: 


SUM INCOME ,POPULATION TO X,Y 


Similar commands work for COUNT and AVERAGE also. They all work even if you 
SET TALK OFF. 
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INPUT 
Like BASIC, DBASE understands the word INPUT. If you say— 


INPUT "HOW OLD ARE YOU? '' TO AGE 
the computer will ask— 
HOW OLD ARE YOU? 


and then wait for you to type a number. Whatever number you type will become the 
AGE. . 

The INPUT statement's variable must be a memory variable, not a field variable. 
For example, if you're using FAMILIES.DBF and want the person to input an 
INCOME (which is a field variable), you must not say INPUT "WHAT IS YOUR 
INCOME? " TO INCOME. Instead, input a memory variable called MINCOME, then 
copy it-to a field by saying REPLACE, like this: 


INPUT "WHAT IS YOUR INCOME? " TO MINCOME 
REPLACE INCOME WITH MINCOME 


ACCEPT 
To input a string instead of a number, say ACCEPT instead of INPUT: 


ACCEPT "WHAT IS YOUR FAVORITE FOOD? " TO FOOD 
Underneath that ACCEPT statement, you might want to add this line: 
FOOD=UPPER (FOOD) 


It makes the computer convert the human's input to capital (upper-case) letters, in 
case the human forgot to press the CAPS LOCK key. 

Like the INPUT statement, the ACCEPT statement takes a memory variable but 
not a field variable. 


WAIT 
This example says WAIT instead of ACCEPT: 


WAIT "WHAT'S YOUR MIDDLE INITIAL? " TO INITIAL 

2? "CONGRATULATIONS!" 

"ACCORDING TO ASTROLOGY, THE FORCES OF THE UNIVERSE" 
"SHALL CAUSE WONDROUS JOYS TO BEFALL" 

"THOSE LUCKY PERSONS WHOSE EARTH-GIVEN NAMES ARE CENTERED" 
"AROUND THE LETTER", INITIAL 


WAIT resembles ACCEPT. In that program, the first line makes the computer ask 
"WHAT'S YOUR MIDDLE INITIAL? " then wait for you to type a character. Whatever 
character you type will become the INITIAL. For example, if you type aQ, the Q will 
become the INITIAL. 

If the line had said ACCEPT, the computer would have required you to press the 
ENTER key after the Q. But since the line said WAIT instead of ACCEPT, you do not 
have to press ENTER: as soon as you type the Q, the computer will know Q is the 
INITIAL (without waiting for ENTER) and will make the screen show this: 


WHAT'S YOUR MIDDLE INITIAL? Q 

CONGRATULATIONS! ACCORDING TO ASTROLOGY, THE FORCES OF THE UNIVERSE 
SHALL CAUSE WONDROUS JOYS TO BEFALL 

THOSE LUCKY PERSONS WHOSE EARTH-GIVEN NAMES ARE CENTERED 

AROUND THE LETTER Q 


WAIT is nicer than ACCEPT, because WAIT doesn't force you to press the ENTER 
key after answering the question. But alas, WAIT restricts you to typing just one 
‘character: you can use WAIT for a middle initial, but not for a whole name. 


Ore errs jai ree | 


(254) 


AS ailie A  aes ite B eT: NSS SEPA Ry Veh) aS, 


GET 
Suppose you live in San Francisco with most of your friends, but a few of your 
friends live elsewhere. Run this program: 


CLEAR ALL 

CLEAR 

SET TALK OFF 

CITY=""SAN FRANCISCO" 

STATE="'CA" 

210,25 SAY "WHAT IS YOUR CITY?" GET CITY 
11,25 SAY "WHAT IS YOUR STATE?" GET STATE 
READ 

2 "I AM GLAD TO HEAR YOU LIVE IN THE KOOKY CITY OF'',CITY 
2? "IN THE SEDUCTIVE STATE OF",STATE 

SET TALK ON 

CLEAR ALL 


Like most DBASE programs, that program begins by saying CLEAR ALL (to avoid 
interference from other programs), CLEAR (to erase the screen), and SET TALK 
OFF (to avoid excessive messages). 

The next pair of lines make CITY be "SAN FRANCISCO" and make STATE be 
"CA". 

The next pair of lines put this message in the middle of your screen: 

WHAT IS YOUR CITY? 
WHAT IS YOUR STATE? [CA 

The READ statement lets you edit the data in the boxes, by using the arrow 
keys, ENTER key, and other word-processing keys. (If you want to erase an entire 
box, move to that box, then tap the Y key while holding down the CONTROL key.) 
You can edit the boxes however you like—for example, change SAN FRANCISCO to 
RENO, and change CA to NV—or do no editing at all, so that you still have SAN 
FRANCISCO and CA. When you've finished doing all the editing you wish, tap the 
END key while holding down the CONTROL key, or just move to the bottom box and 
tap the ENTER key. 


If you changed\SAN FRANCISCO to RENO and changed CA to NV, the next two 
lines in the program will print this, at the bottom of the screen: 


I AM GLAD TO HEAR YOU LIVE IN THE KOOKY CITY OF RENO 
IN THE SEDUCTIVE STATE OF NV 


Like most DBASE programs, that program ends by putting the computer back to 
its normal state (SET TALK ON and CLEAR ALL). 

To use the word GET, you should put it in an @SAY command. Underneath the @ 
SAY GET commands, say READ. 

If you forget to include the SAY "WHAT IS YOUR CITY?", and instead type just 
@10,25 GET CITY, the computer will omit the the question but will still show the 
CITY box. If you forget to say READ, you'll still see boxes full of data, but you 
won't get a chance to edit what's in them. 

By using GET and READ, you can edit any kind of variable. The variable can be 
a number or a string; it can be a memory variable or a field variable. 

If it's a field variable, the computer automatically makes the box wide enough to 
hold the entire field; and when you edit the- data in the box, the computer 
automatically updates your data file. (You do not have to say REPLACE.) 

If it's a memory variable instead, your program must include a statement such as 
CITY="SAN FRANCISCO", which tells the computer how wide to make the box. To 
make the box even wider, put extra spaces after SAN FRANCISCO, like this: 


CITY="'SAN FRANCISCO ‘ 


If the memory variable stands for a number instead of a string, the computer 
automatically makes the box wide enough to hold 10 digits before the decimal 
point—or even wider. 
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IF 
Like BASIC and PASCAL, DBASE lets you use the words IF and ELSE. Write the IF 
statement like this: 


IF AGE<18 
2? "MINOR" 
2 "YOUNG" 
ELSE 
2? "ADULT" 
qe OLDs 
ENDIF 


Whenever you say IF, you must also say ENDIF. To indent the lines in between, 
tap the TAB key. (The indentation is optional.) 

Here's how to say, "If the NAME begins with SAN and the INCOME is at least 
90000": 


IF NAME=""SAN" .AND. INCOME>=50000 


Remember to put periods around the word AND. For strings, the symbol "=" means 
"begins with", unless you said SET EXACT ON. 


DO WHILE 
To create a loop, say DO WHILE. If you want the loop to be infinite, say DO WHILE 
.T., like this: 


DO WHILE .T. 
? VCA Tos 
Ge "nog" 
ENDDO 


The computer will print CAT and DOG repeatedly, like this: 


CAT 
DOG 
CAT 
DOG 
CAT 
DOG 
etc. 


To abort the program, tap the Esc key (which stands for "Escape") and then the C 
key (which stands for "Cancel"). 

Any program that says DO WHILE must also say ENDDO. The computer will repeat 
all the lines between DO WHILE and ENDDO, to form a loop. 
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This program makes the computer print all the numbers from 1 to 10 and then 
print "WOW": 


SET TALK OFF 
X=1 
DO WHILE X<=10 


SET TALK ON 


The top line prevents the computer from printing excessive messages. The next line 
says X starts at. 1. The lines between DO WHILE and ENDDO are done repeatedly, as 
long as X<=10. If X gets past 10, the computer refuses to do the loop again, and 
instead proceeds to the line underneath ENDDO, which makes the computer say 
WOW. The bottom of the program says SET TALK ON, to puts the computer back to 
normal. Altogether, the computer prints: 


1 


OOoOONAUWUFWPY 


_— 


WOW 


In BASIC, you can create loops by giving commands such as "GO TO 10" and 
"FOR I = 1 TO 10...NEXT". Unfortunately, DBASE doesn't understand how to GO 
TO line 10 or how to do a FOR...NEXT loop. In DBASE, the only way to create a loop 
is to say DO WHILE...ENDDO. 


CANCEL 
Instead of using the BASIC words STOP and END, DBASE uses the word CANCEL. 
While the computer is DOing your DBASE program, if the computer comes to a line 
that says CANCEL, the computer will skip the rest of the program and say: 


Do cancelled 


EXIT 
While the computer is doing your program, if the computer comes to a line that says 
EXIT, here's what happens. 

Usually, the computer will skip the rest of the program and display the dot 
prompt. In that situation, EXIT acts like CANCEL, except that EXIT doesn't make 
the computer say "Do cancelled". 

But if the EXIT line's in the middle of a DO WHILE loop, the computer will not skip 
the rest of the program. Instead, the computer will skip just the rest of the DO 
WHILE loop. The computer will skip ahead to the line underneath ENDDO. 


LOOP 


While the computer is doing a WHILE loop, if it encounters a line that says LOOP, the 
computer will hop back to the loop's top line. 
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eet, THE ULTIMATE PROGRAM 
Congratulations! Now you know enough about DBASE so that you're ready to create 
the ULTIMATE program. This program lets you store and retrieve any information 
about any topic! Moreover, the program is so nicely designed that even a novice who 
knows nothing about DBASE can run the program and use its full power. 
How the program acts. After you've written the program, you can start using it 
by just typing: | 


- DO ULTIMATE 


Then the computer starts running the ULTIMATE program, which makes the 
computer ask: #3 


What topic interests you? (If unsure, type a question mark. To end, type an x.) 


If you type just an x or a capital X, the computer stops running the program and 
displays the dot prompt. / ; 

If you type a question mark instead, the computer displays a list of all the topics 
it was fed previously. For example, those topics might include REAGAN, RENT, 
PICKLES, MANHATTAN, SEX, THE MEANING OF LIFE, and STRANGE JOKES. Then 
the computer says: 


Pick one of those topics, or teach me a new one. 


What topic interests you? (If unsure, type a question mark. To end, type an x.) 


If you type anything other than an x or an X or a question mark, the computer 
searches through its file, to see whether it's been fed that topic. If it finds the topic 
in the file, it reveals all it knows about the topic, and then lets you edit that data. If 
it does not find the topic in the file, it says so, and gives you an opportunity to 
teach it about the topic. , 

How to invent the program. To make the computer do all that, so a novice can 
store and retrieve data easily, a professional (such as yourself!) must previously 
put three things onto the disk: the program itself (which is called ULTIMATE.PRG), 
a data file (called INFO.DBF), and an index file (called INFOTOP.NDX). Here's 
how. 

Start by putting the data file INFO.DBF onto the disk. To do that, say: 


- CREATE INFO 
Then complete this chart: 


Field name Type Width Dec 
TOPIC Character 25 
DATA Character 79 


That allows each TOPIC to be 25 characters long, and the DATA about the topic to be 
79 characters long. 

After typing the chart, tap the END key while holding down the CONTROL key. 
Then tap the ENTER key. The computer will ask, "Input data records now?" Tap the 
N key. 

Next, put the index file INFOTOP.NDX onto the disk, by typing: 


- INDEX ON TOPIC TO INFOTOP 


That creates an index file called INFOTOP.NDX, which lets the computer find each 
TOPIC quickly. 
Finally, put the program ULTIMATE.PRG onto the disk. To do that, begin by 


saying: 
- MODIFY COMMAND ULTIMATE 
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Then type the program's introduction: 


CLEAR ALL 

CLEAR 

SET TALK: OFF 

SET HEADING OFF 

SET EXACT ON 

SET DELETED ON 

USE INFO INDEX INFOTOP 


That introduction says to CLEAR ALL influences from previous programs, CLEAR 
the screen, SET the DBASE program so you have complete control over everything, 
and USE the INFO data file INDEXed by INFOTOP. 


ZN 
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Then type the program's loop: 


DOWWHILE sli. 
9 
2? "What topic interests you? " 
22 "(If unsure, type a question mark. To end, type an x.)" 
ACCEPT TO DESIRE 
DESIRE=UPPER (DESIRE) : 
CLEAR 
DO CASE 
CASE DESIRE='"'X" 
EXIT 
CASE DESIRE="'?" 
GO TOP 
TFTEOF.G) 
2 "I don't know any topics yet. My mind is blank. 
2? "Please teach me a new topic.” 
ELSE 
2? "I know about these topics:" 
DIESPEAYOALECOFR TOPLE 
2 "Pick one of those topics, or teach me a new one." 
ENDIF 
CASE DESIRE=""" 
OTHERWISE 
SEEK DESIRE 
IF FOUND () 
2 "Here's what I know about'',DESIRE+t":" 
a2,0 GET DATA 
2 "You can edit that info now." 
2? "(If you want me to forget about'',DESIRE 
22", tap Y while holding down the CTRL key.)" 
2? "When you're done, tap the ENTER key.” 
READ 
CLEAR 
IF DATA=''" 
DELETE 
‘ENDIF 
BES 
2 "I don't know anything about" ,DESIRE+"." 
2? "Tell me about'',DESIREt+"." 
2? "(If you don't want to tell me, type an x.)" 
ACCEPT TO NEWDATA 
IF UPPERCNEWDATA) #''X" 
APPEND BLANK 
REPLACE TOPIC WITH DESIRE 
REPLACE DATA WITH NEWDATA 
ENDIF 
ENDIF 
ENDCASE 
ENDDO 


In that loop, each print statement uses small letters instead of capitals, so that 
the printing will look more sophisticated. (To create the small letters, just turn off 
the CAPS LOCK key, by tapping it.) 

After saying ACCEPT TO DESIRE, the next statement = says 
DESIRE=UPPER(DESIRE), which converts the user's desired topic to capital letters. 
That saves the user from worrying about whether to type REAGAN or Reagan or 
reagan: whichever of those the user types, the computer will convert it to REAGAN. 
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The DESIRE can be four kinds of things: it can be an X (which means the user 
wants to exit), a question mark (which means the user is confused and would like to 
see a list of topics), nothing at all (which means the user accidentally pressed the 
ENTER key an extra time), or a topic. The DO CASE statement tells the computer to 
handle those four cases: DESIRE="X", DESIRE="2", DESIRE="", and 
DESIRE=otherwise. Let's look at those four cases in more detail. 

In the CASE where DESIRE="X", the computer lets the user EXIT from the DO 
WHILE loop. 

In the CASE where DESIRE="?", the computer begins by checking whether the 
file contains any undeleted topics. Here's how. The lines GO TOP and IF EOF() tell 
the computer to GO to the TOP of the file and see if the TOP of the file is also the End 
Of the File. If the TOP of the file is also the End Of the File, the file doesn't contain 
any records yet (or all its records have been DELETED), so the computer will print 
"Tl don't know any topics yet. My mind is blank." If the computer's mind is not blank, 
the computer will say "I know about these topics" and will DISPLAY ALL of the 
TOPICS. The computer will display the topics themselves but will not display their 
record numbers, since the DISPLAY statement says to turn the record numbers OFF. 

In the CASE where DESIRE="", the computer does nothing at all. 

In the case where desire is OTHERWISE, the computer will hunt through all the 
topics in the file, to SEEK the user's DESIRE. 

If the user's DESIRE is FOUND in the file, the computer is commanded to print 
"Here's what I know about",DESIRE+":". In that command, the word DESIRE is 
followed by a plus sign instead of a comma, to prevent the computer from leaving a 
blank space after DESIRE. 

If the user's DESIRE is not FOUND in the file, the computer is commanded to 
print "I don't know anything about" ,DESIRE+".". Then the computer asks the user 
to type some NEWDATA about the topic. If the user does indeed type some useful 
NEWDATA (instead of just an X), the computer appends the NEWDATA to the end of 
the file. To do that, the computer first APPENDs a BLANK record, then puts the 
NEWDATA into that record by using REPLACE. 

The remaining lines .say ENDIF twice (to end the two IF statements) and 
ENDCASE (to end the DO CASE statement) and ENDDO (to end the DO WHILE 
statement). 
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At the bottom of the program, add these lines: 


SET DELETED OFF 
COUNT FOR DELETED() TO DELCOUNT 
IF DELCOUNT>RECCOUNT () /4 
2? "PLease wait, while I compress your data." 
PACK 
2 "The compression is done." 
ENDIF 
SET EXACT OFF 
SET HEADING ON 
SET TALK ON 
CLEAR ALL 


The computer reaches those lines when the user chooses to EXIT from the DO WHILE 
loop (by saying the DESIRE is "X"). Those lines say to SET the computer back to 
normal and to CLEAR ALL interference from later programs. 

One of those lines says to PACK the file. But if fewer than a quarter of the 
records have been marked for deletion, the program tells the computer not to bother 
PACKing. 

Here's how the computer figures out whether to bother PACKing. The program 
says to COUNT how many records have been marked to be DELETED, and call that 
the DELCOUNT. The program says that IF the DELCOUNT is greater than the 
RECord COUNT divided by 4, then PACK. 

After you've typed that entire Propramy tap the END key while holding down the 
CONTROL key. Then you're done: you've created the ULTIMATE data- management 
program! 

Old versions. Old DBASE 3 didn't understand RECCOUNT(); so instead of saying 
IF DELCOUNT >RECCOUNT()/4, say COUNT TO RECCOUNT and then IF 
DELCOUNT >RECCOUNT /4. 

Old DBASE 3 didn't understand the word FOUND at all. DBASE 3 PLUS version 
1.0 tried to understand the word FOUND, but handled it incorrectly if you deleted 
some records. For those versions of DBASE, instead of saying IF FOUND(), say IF 
-NOT. EOF(). 
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Consequences of the ULTIMATE program. Some parts of that program were hard 
to invent, but the program is super-easy to use. Try it! 

Then challenge yourself: think of further improvements to the ULTIMATE 
program, to make the program even easier to use and even more powerful! 

Such programs would be much harder to develop, if we were using BASIC or 
PASCAL or LOGO or FORTRAN or COBOL or C or any other major computer 
language. That's why programmers love DBASE! 
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APPENDIX 1: 


(bin OG 


TYPES OF NUMBERS 
If your program involves trigonometry (SIN, COS, TAN, ATN) or exponents Rane 
SQR, EXP, LOG), and you want those computations done with double- precision 
accuracy, you must say BASICA/D instead of saying just BASICA. 


MEMORY CELLS 
Your computer's memory is divided into segments. Each segment contains 64K of RAM 
or ROM. 
Before saying PEEK or POKE, tell the computer which segment to use. For 
example, if you want the computer to use segment 3, begin your program by saying: 


10 def seg=3 


If you then say PRINT PEEK (50000) , the computer will peek at the 50000th cell of 
segment 3. If you forget to say DEF SEG, or say just— 


10 def seg 


without putting a number afterwards, the computer will use its "favorite" segment. 

Although you can play cute tricks by using the words PEEK and POKE, most IBM 
programmers avoid those words, for three reasons: 

@ PEEK and POKE are awkward to use, because you must remember to say DEF 
SEG beforehand. 

® The PEEKs and POKEs that work on your computer system might not work on 
your friend's computer system, because different IBM clones and different versions 
of DOS use different memory cells. 

® IBM's DOS and BASIC include hundreds of other commands that are easier to 
use than PEEK and POKE and accomplish similar goals. To learn about them, browse 
through the manuals that. you get when you buy IBM's DOS and BASIC. 

If you insist on fiddling with PEEKs and POKEs, read David Schneider's magazine 
article, which reveals the secrets of dozens of memory cells. Part 1 of his article is 
on pages 201-218 of the 11/12/85 issue of PC Magazine; part 2is on pages 187-208 of 
the 11/26/85 issue. You can come visit me and browse at those articles in my library, 
free. The articles are excerpted from the end of his book, called the Handbook of 
BASIC for the IBM PC Revised and Expanded, published by the Brady Book division 
of Simon & Schuster. 


JOYSTICKS 
The coordinates of joystick A are STICK(0) and STICK(1). The coordinates of 
joystick B are STICK(2) and STICK(3). 

When the computer comes to a line that mentions STICK(0), the computer looks at 
both joysticks and computes STICK(0), STICK(1), STICK(2), and STICK(3). If 
your program mentions STICK(1) or STICK(2) or STICK(3), without mentioning 
STICK(0), the computer won't look at the joysticks. 


RANDOM ACCESS 
If you want the record length to be more than 128, you must warn the computer. For 
example, to warn the computer that you'll want a record length of 400, ‘say 
"basica/S: 400" (instead of just "basica"). 


(264) 


BOMWMODORE 34 


EXPONENTS 
On the Commodore 64's keyboard, the exponent key is next to the RESTORE key and 
says "+" instead of "4". 


STRING ANALYSIS 
Your computer doesn't understand INSTR, DATE$, or STRING$. It doesn't 
understand an equal sign after MID$. It omits colons from the TIME$; so instead of 
saying TIME$="13:45:07", say TIME$="134507". 


TYPES OF NUMBERS 
You can't use double-precision. For integers, you can use the symbol % but not the 
‘word DEFINT. 


To create a real number, you can type as many digits as you wish, but the 
computer remembers just the first 10 digits accurately, and prints just the first 9 of 
them on your screen. Each real number consumes 5 bytes of RAM. 


MEMORY CELLS 
Your computer can display 16 colors, which are numbered as follows: 0=black, 
l=white, 2=red, 3=cyan, 4=purple, 5=green, 6=blue, 7=yellow, S-orange, 9-brown, 
10=light brown, 1l=dark gray, 12=gray, 13=light green, 14-light blue, 15=light 
gray. 

Normally, the characters on the screen are light blue (color 14). To choose a 
different character color, poke the color number into cell #646. For example, to 
create white characters, say: 


POKE 646,1 


Normally, the screen's background color is a deep blue (color 6). To choose a 
different background color, poke the color number into cell #53281. For example, to 
make the background be red, say: 


POKE 53281,2 


Normally, the border along the screen's edge is light blue (color 14). To choose a 
different border color, poke the color number into cell #53280. For example, to make 
the border be green, say: 


POKE 53280,5 


VARYING THE INPUT STATEMENT 


You can't replace the semicolon by a comma. You can't put a semicolon immediately 
after INPUT. 


LINE INPUT 
You can't say LINE INPUT. 


INPUTS 
Instead of saying— 
20 AS=INPUTS (1) 
say: 
20 GET A$: IF AS="""' THEN GO TO 20 
Instead of saying INPUT$(4), you must GET one character at a time. 
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| JOYSTICKS 
To make the computer look at joystick 1, say: 


100 J=15-(PEEK (56321) AND 15) 


If the joystick is pushed forward, J is 1; if the joystick is pulled back, J is 2; if the 
joystick is pushed to the left, J is 4, if the joystick is pushed to the right, J is 8. 
Combined motions produced combined numbers; for example, if the joystick is 
pushed forward and to the left simultaneously, J is 1+4, whichis 5. If the joystick is 
untouched and centered, J is 0. . 

To make the computer look at joystick 2, say: 


102 J2=15-(PEEK (56320) AND 15) 
To see the numbers J and J2 on your screen continually, add these lines: 


110 PRINT J,J2 
120 GO TO 100 


FUNDAMENTALS OF PRINT USING 
Your computer doesn't understand PRINT USING. 


HOW TO SWAP 
Your computer doesn't understand SWAP, so use the alternative. 


ON ERROR GO TO 
Your computer doesn't understand ON ERROR GO TO. 


SEQUENTIAL FILES 
This program prints EAT and 4 and EGGS onto a disk file called SUE: 


> OPENT2,3,cy. SUE Zo, Wa 
10 PRINT#2, "EAT" 

20 PRINT#2, 2+2 

30 PRINT#2, "EGGS" 

40 CLOSE 2 


Notice you must say PRINT#2, not PRINT#1. In line 4, the W tells the computer to 
Write SUE. | 
This program makes the computer Read SUE and copy it to your screen: 


S\OVENTe 87 C,3 oUEG ONG 


10 INPUT#2, AS 
11 PRINT A$ 


20 INPUT#2, B 
21 PRINT B 


30 INPUT#2, CS 
31 PRINT C$ 


40 CLOSE 2 
This program makes the computer Append "GOOD MORNING!" to the end of SUE: 


JOSOPENGC,> Oo, cemsle saan. 
20 PRINT#2, "GOOD MORNING!" 
30 CLOSE 2 


Instead of saying EOF(1), say STAND 64=64. 

Your computer doesn't understand LOF. 

The main file is called #2. The next file is called #3: say OPEN 3,8,3,"TOM,S,W". 
You can use #2, #3, #4, etc., up to #14. You cannot use #1. 

After each CLOSE, you must put a number that says which file to CLOSE. 
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RANDOM ACCESS 


This program creates a random-access file called JIM whose record length is 20, and 
defines JIM's 7th, 9th, and 4th records: 


5 OPEN 15,8,15: OPEN 2,8,2,"JIM,L,"'+CHR$ (20) 
10 PRINT#15, "P'CHR$ (2) CHR$ (7) CHR$(O) CHR$(O): PRINT#2, "LOVE MAKES ME GIGGLE"; 
20 PRINT#H15, "P'CHR$S(2) CHRS (9) CHRS(O) CHR$(O): PRINT#H2, "PLEASE HOLD MY HAND"; 


30 PRINTH15, ''P''CHRS(2) CHRS(4) CHRS(O)CHRS(O): PRINT#H2, "I LOVE LUCY"; 
40 CLOSE (2:1 CLOSE 915 


This program makes the computer tell you JIM's 7th item: 


5 OPEN 1976,19: OPEN 2,8,2, JIM. 
10 PRINTH15, ''P''CHR$(2) CHRS(7) CHRS(O) CHRS(O): INPUT#2, X$: PRINT XS 
CUSCLOSE cy (CLOSE 1) 

Your computer doesn't understand LOC. 


The computer lets you put numbers in the file. You do not have to convert the 
numbers to strings. 
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ATARI 800 Xb 


SIMPLE SUBSCRIPTS 
To make the Atari 800 XL understand DIM X$(7), you must insert the Microsoft 
BASIC 2 cartridge, instead of using Atari BASIC. 


NUMERIC ARRAYS 
Although Atari BASIC doesn't permit string arrays such as DIM Y$(6), it does 
permit numeric arrays such as DIM Y(6). But it doesn't allow subscripts in the 
middle of a READ or INPUT statement. Instead of saying READ X(I), say: 


READ A: XCI)=A 
Instead of saying INPUT X(I), say: 
INPUT A: X(I)=A 


EXPONENTS 
Atari BASIC makes a mistake when handling exponents. 

According to mathematicians and Microsoft BASIC 2, -5% means "the negative of 
92"; so it's -25. But Atari BASIC makes the mistake of thinking that -5? means "the 
square of -5", which is 25. 

If you say PRINT -5%2, Atari BASIC will therefore print 25, which mathematicians 
consider to be wrong. 

For another example, suppose you say: 


10 X=5 
20 (PRINT 42X02 : 


Atari BASIC mistakenly thinks that line 20 means "the square of -X", and therefore 
prints 25. (According to mathematicians and Microsoft BASIC 2, line 20 means "the 
negative of X?", and so the answer ought to be -25.) 

Atari BASIC's mistake makes it incorrectly handle several branches of 
mathematics. For example, it incorrectly solves quadratic equations and incorrectly 
graphs upside-down parabolas—unless you he/p it by typing parentheses. 


To help Atari BASIC, type parentheses whenever a minus sign is followed by an 


exponentiated number: 
PRANIC = (oo) 

Another example: 

10 X=5 

cOsPRINT RAX“2) 


Those parentheses make Atari BASIC print the correct answer, which is -25. 


STRING ANALYSIS 
Microsoft BASIC 2 lacks DATE$, prohibits an equal sign. after MID$, and requires 
you to say TIME/60 instead of TIMER. Atari BASIC lacks DATE$, TIME$, TIMER, 
LEFT$, RIGHT$, INSTR, and STRING$, prohibits a plus sign between strings, 
requires you to say A$(2) instead of MID$(A$,2), and makes STR$(81.4) be the 
string "81.4", without a blank space. 
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ADVANCED MATH 
Atari BASIC permits this short-cut: instead of making line 10 say D=ATN(1)/45, 
make line 10 just say— 


10 DEG 


and then omit each *D and /D from your program. 

Atari BASIC lacks TAN. 

In Atari BASIC, if you say CLOG instead of LOG, the computer will compute the 
common logarithm (the logarithm-base-10) instead of the logarithm-base-e. 


TYPES OF NUMBERS 
Atari BASIC treats all numbers as reals. If you type a long number, the computer 
examines the first 9 digits and ignores the rest. 


MEMORY CELLS 
Cell #82 normally contains the number 2. That makes the screen indent each line, 2 
spaces, so that the screen's left margin is 2 spaces wide. 
To change the left margin, POKE a different number into cell #82. For example, to 
make the left margin be 10 spaces wide, say: 


POKE 82,10 
To eliminate the left margin, so that it's "0 spaces wide", say: 
POKE 82,0 


If you eliminate the left margin, you might have to adjust your TV's HORIZONTAL 
HOLD dial, to see the leftmost characters. 
Cell #755 normally contains the number 2. If you say— 


POKE 755,6 


each character on the screen will suddenly flip upside down. For example, each M 
will become W, and each P will become b. To read that upside-down writing easily, 
turn your TV upside-down, and then look at the TV in a mirror. If you walk into 
your town's video arcade and stare at the Atari video arcade games, you'll notice 
each game uses an upside-down TV (or monitor) and a mirror. 


VARYING THE INPUT STATEMENT 
You can't replace the semicolon by a comma. You can't put a semicolon immediately 
after INPUT. 


LINE INPUT 
LINE INPUT requires Microsoft BASIC 2. 


INPUTS 
Instead of saying-—— 
20 AS=INPUTS (1) 


do the following. ... 
For Microsoft BASIC 2, say: 


20 AS=INKEY$: IF A$="""' THEN GO TO 20 
For Atari BASIC, say— 
20 GET#1, A: AS=CHRSCA) 
and add this line: 
4 DIM AS(1): OPEN#1,4,0,"K:" 
Instead of saying INPUT$(4), you must get one character at a time. 
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JOYSTICKS 
To make the computer look at joystick 1, say: 


Atari BASIC Microsoft BASIC 2 
100 J=15-STICK(O) 100 J=15-PEEK (632) 


If the joystick is pushed forward, J is 1; if the joystick is pulled back, J is 2; if the 
joystick is pushed to the left, J is 4, if the joystick is pushed to the right, J is 8. 
Combined motions produced combined numbers; for example, if the joystick is 
pushed forward and to the left simultaneously, J is 1+4, which is 5. If the joystick is 
untouched and centered, J is 0. 

To make the computer look at joystick 2, say: 


Atari BASIC Microsoft BASIC 2 
102 J2=15-STICK(1) 102 J=15-PEEK (633) 


To see the numbers J and J2 on your screen continually, add these lines: 


110 PRINT J,J2 
120 GO TO 100 


FUNDAMENTALS OF PRINT USING 
To say PRINT USING, you must have the Microsoft BASIC 2 cartridge, plus a disk 
drive, plus the Microsoft BASIC 2 disk. 


HOW TO SWAP 
Your computer doesn't understand SWAP, so use the alternative. 


ON ...GO TO 
For Atari BASIC, do not put a space between GO and TO. Say GOTO instead of GO 
TO. 


ON ERROR GO TO 
For Atari BASIC, say TRAP 1000instead of ON ERROR GO TO 1000, say TRAP 40000 
instead of ON ERROR GO TO 0, and say GO TO 30 instead of RESUME 30. 
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) SEQUENTIAL FILES 
Instead of saying CLOSE, say CLOSE#1. For Atari BASIC, the PRINT #1 should be 
followed by a semicolon instead of a comma. 
Instead of saying OPEN "SUE" FOR OUTPUT AS 1, say this: 


Microsoft BASIC 2 Atari BASIC 
OPEN#1,"D:SUE" OUTPUT OPEN#1 ,8,0,'D:SUE" 
Instead of saying OPEN "SUE" FOR INPUT AS 1, say: 

Microsoft BASIC 2 Atari BASIC 
OPEN#1 ,''D: SUE" INPUT OPEN#1 ,4,0,''D: SUE" 


For Atari BASIC, you must also DIM your strings, like this: DIM A$(3), C$(4). 
Instead of saying OPEN "SUE" FOR APPEND AS 1, say: 


Microsoft BASIC 2 Atari BASIC 
OPEN#1 ,''D: SUE" APPEND OPEN#1 ,9,0,''D: SUE" 


Your computer doesn't understand LOF. 
Atari BASIC doesn't understand EOF(1). For Atari BASIC, instead of saying IF 
EOF(1) THEN GO TO 1000, put this line at the top of your program: TRAP 1000. 


RANDOM ACCESS 
Your computer doesn't understand FIELD or LSET. 
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AFFLE ZC 


EXPONENTS 
The Apple 2c makes a mistake when handling exponents. 

According to mathematicians and most other computers, -5? means "the negative 
of 52"; so it's -25. But the Apple makes the mistake of thinking that -5* means "the 
square of -5", which is 25. 

If you say PRINT -5%2, the Apple will therefore print 25, which mathematicians 
consider to be wrong. 

For another example, suppose you say: 


10 x=5 
ZO print? =xhe 


The Apple mistakenly thinks that line 20 means "the square of -X", and therefore 
prints 25. (According to mathematicians and other computers, line 20 means "the 
negative of X?2", and so the answer ought to be -25.) 

The Apple's mistake makes the Apple incorrectly handle several branches of 
mathematics. For example, the Apple incorrectly solves quadratic equations and 
incorrectly graphs upside-down parabolas—unless you help your Apple by typing 
parentheses. 


To help your Apple, type parentheses whenever a minus sign is followed by an 


exponentiated number: 
pranien (5.2) 
Another example: 


“10 x=5 
20 print -—(x%2) 


Those parentheses make the Apple print the correct answer, which is -25. 


STRING ANALYSIS 
Your computer doesn't understand INSTR, TIME$, TIMER, DATE$, or STRING$. It 
doesn't understand an equal sign after MID$. It makes STR$(81.4) be the string 
"81.4", without a blank space. 


TYPES OF NUMBERS 
You can't use double-precision. For integers, you can use the symbol % but not the 
word DEFINT. 
To create a real number, you can type as many digits as you wish, but the 
computer remembers just the first 10 digits accurately, and prints just the first 9 of 
them on your screen. Each real number consumes 5 bytes of RAM. 
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MEMORY CELLS 
Normally, the computer uses the whole screen. If you say— 


poke 33,20 


the computer will use just the left part of the screen. That part will be 20 characters 
wide. Whenever you try to type more than 20 characters on a line, the computer will 
put the excess characters underneath, as part of the line below. The the rightmost 
part of the screen will be unused, and will act as a very wide right margin. 

If you don't like a width of 20, choose a different width instead. 

Problem: write a program that puts instructions on the screen and keeps the 
instructions there permanently, while the rest of the screen changes. Solution: turn 
on the computer, avoid saying POKE, write the instructions on the rightmost part of 
the screen (by giving ordinary PRINT statements with TAB or HTAB), and then say 
"POKE 33,20". That POKE prevents the computer from typing anything new on the 
rightmost part of the screen—but the instructions you typed there previously will 
remain. 

Apple's LIST command is peculiar. To edit your program more easily, instead of 
saying just LIST, say: 


poke 33,33 
List 


That makes the LIST be just 33 characters wide. That particular width—3 
characters—makes the LIST easier to edit. 


VARYING THE INPUT STATEMENT 
You can't put a semicolon immediately after INPUT. 


LINE INPUT 
You can't say LINE INPUT. 


INPUTS 
Instead of saying A$=INPUT$(1), say GET A$. Instead of saying— 


6 P$=INPUTS (4) 
say: 
6 get p1$: get p2s: get p3$: get p4$: o$=p1$tp2$tp3$+p4$ 


JOYSTICKS 
Say PDL instead of STICK. If you say PDL and then suddenly say PDL again, the 
computer won't compute the second PDL accurately. To improve the accuracy, make 
the computer pause before the second PDL, by inserting a FOR...NEXT loop: 


100 x=pdl (0): for i = 1 TO 100: next: y=pdl (1) 


FUNDAMENTALS OF PRINT USING 
Your computer doesn't understand PRINT USING. 


HOW TO SWAP 
Your computer doesn't understand SWAP, so use the alternative. 


ON ERROR GO TO 
Change ERROR to ERR, and change "ON ERROR GO TO 0" to "POKE 216,0". 
You can say RESUME, but you cannot put a number or word after RESUME. You 
cannot say RESUME 30; you cannot say RESUME NEXT. 
Instead of saying RESUME 30, say "CALL 62248: GO TO 30". 
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SEQUENTIAL FILES 
This program prints "eat" and 4 and "eggs" onto a disk file called SUE: 


5 d$=chr$ (4): 2d$"'open sue": ?d$'"'write sue" 
10 print "eat" 

20#orintocre 

30 print "eggs" 

40 ?d$"'close" 


This program makes the computer read SUE and copy it to your screen: 
5 d$=chr$(4): ?d$''open sue": ?d$''read sue" 


10 input a$ 
T120Knintwas 


20 input b 
21 omunitesd 


30 input c$ 
31 print c$ 


40 ?d$''close" 
This program makes the computer append " good morning!" to the end of SUE: 


10 d$=chr$(4): 2d$"open sue": ?d$"append sue" 
20 print "good morning!" 
50. 2?d$"close’ 


Your computer doesn't understand EOF(1). Instead of saying IF EOF(1) THEN 


GO TO 1000, put this line at the top of your program: ON ERR GO TO 1000. 
Your computer doesn't understand LOF(1). 


RANDOM ACCESS 
This program creates a random-access file called JIM whose record length is 21, and 
defines JIM's 7th, 9th, and 4th items: 


5 d$=chr$(4): ?d$"open jim,l21" . 

10 2dS"write: jim,r’ 7: print "Love makes me giggle" 
20 ?d$"write jim,r'' 9: print "please hold my hand" 
50° ?dS"'write jimor’ 42 print 2 towe:ttucy 

40 ?d$"'close" . 


At the end of line 5, the L21 means Length 21. "LOVE MAKES ME GIGGLE" contains 
20 characters but requires a record length of 21, because the RETURN key at the 
end of GIGGLE consumes 1 byte. 

This program makes the computer tell you JIM's 7th item: 


5 d$=chr$(4): ?d$"open jim,l21" 
10 ?d$"read jim,r" 7: input x$: print x$ 
20 ?d$''close" 


Your computer doesn't understand LOC. 
The computer lets you put numbers in the file. You do not have to convert the 
numbers to strings. 
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APPLE MACINTOSH 


TYPES OF NUMBERS 
Microsoft BASIC version 2, for the Macintosh, comes in two varieties—binary and 
decimal—which you choose by clicking the appropriate icon. 

If a variable is simple (such as X), the binary variety treats it as real, but the 
decimal variety treats it as double-precision. If you type a number containing a 
decimal point and exactly 7 digits, the binary variety treats it as a real, but the 
decimal variety treats it as double-precision. 

If you type a double-precision number, the binary variety handles it to an 
accuracy of 15 or 16 digits, but the decimal variety handles it to an accuracy of just 
14 digits. 


JOYSTICKS 
Your computer uses a mouse instead of joysticks. To make the computer look at the 
mouse, say M=MOUSE(0). 
This line forces the computer to look where the mouse is pointing, and make X be 
that point's X coordinate, and make Y be that point's Y coordinate: 


100 m=mouse(0): x=mouse(1): y=mouse(2) 
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TRS-80 COLOR COMPUTER 2 


EXPONENTS 
For exponents, the TRS-80 Color Computer 2 (with extended color BASIC) uses the 
symbol "¢"' instead of "4". 


STRING ANALYSIS 
Your computer doesn't understand TIME$ or DATE$. 

Here's how to use the TIMER function. First, reset the TIMER to zero, by saying 
TIMER=0. Later, whenever you say PRINT TIMER/60, the computer will tell you how 
many seconds ago the timer was reset. 

Unfortunately, the TIMER lasts only 18 minutes; after 18 minutes, it resets itself 
to zero again. 


TYPES OF NUMBERS 
All variables are reals: you can't create integer variables or double-precision 
variables. 
To create a real number, you can type as many digits as you wish, but the 
computer remembers just the first 10 digits accurately, and prints just the first 9 of 
them on your screen. Each real number consumes 5 bytes of RAM. 


VARYING THE INPUT STATEMENT 
You can't replace the semicolon by a comma. You can't put a semicolon immediately 
after INPUT. 


INPUTS 
Instead of saying— 


20 AS=INPUT$ (1) 
say: 
20 AS=INKEYS: IF AS$=""" THEN GO TO 20 
Instead of saying INPUT$(4), you must INKEY$ one character at a time. 


JOYSTICKS 
Say JOYSTK instead of STICK. The coordinates of the right joystick are JOYSTK(0) 
and JOYSTK(1). The coordinates of the left joystick are JOYSTK(2) and 
JOYSTK(3). 

When the computer comes to a line that mentions JOYSTK(0), the computer looks 
at both joysticks and computes JOYSTK(0), JOYSTK(1), JOYSTK(2), and 
JOYSTK(3). If your program mentions JOYSTK(1) or JOYSTK(2) or JOYSTK(3), 
without mentioning JOYSTK(0), the computer won't look at the joysticks. 


HOW TO SWAP 
Your computer doesn't understand SWAP, so use the alternative. 


ON ERROR GO TO 
Your computer doesn't understand ON ERROR GO TO. 
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SEQUENTIAL FILES 
Instead of saying OPEN "SUE" FOR OUTPUT AS 1; say OPEN "0" ,1,"SUE". In the 
quotation marks, be sure to put the letter O, not a zero. 
Instead of saying OPEN "SUE" FOR INPUT AS 1, say OPEN "I",1,"SUE". 
Your computer doesn't understand APPEND, and doesn't understand the usual 
meaning of LOF(1). 


RANDOM ACCESS 

Instead of saying OPEN "JIM" AS 1 LEN=20, say OPEN "D",1,"JIM", 20. 

LOF(1) is the number of records in the file (instead of being the number of 
bytes). 

Instead of using MKI$, MKS$, or MKD$, use MKN$. It MaKes a Number into a 
5-byte string. 

Instead of using CVI, CVS, or CVD, use CVN. It ConVerts a 5-byte string toa 
Number. 
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TRS-80 MODEL 


EXPONENTS ? 
To make the symbol "*", tap the semicolon key while holding down the CLEAR key. 


STRING ANALYSIS 
To set the time to 13:45:07, say SYSTEM "TIME 13:45:07". To set the date to 
01/24/1987, say SYSTEM "DATE 01/24/1987". Your computer doesn't understand 
TIMER. 


MEMORY CELLS 
If you're using TRSDOS version 6.02, cell #2968 normally contains the number 95, 
which is the ASCII code number for an underline. That makes the cursor's shape be 
an underline. 
To change the cursor's shape, POKE a different number into cell #2968. For 
example, to change the cursor's shape to the letter A (whose ASCII code number is 
65), say: 


poke 2968,65 


To create a "feminist computer", turn the cursor into a female- sign (whose ASCII 
code number is 250), by saying: 


poke 2968,250 


Older versions of TRSDOS. Cell #2968 does that only in TRSDOS version 6.2. 
Instead of cell #2968, version 6.00 uses cell #3040; version 6.01 uses cell #3017. 

When you turn on the computer, versions 6.00 and 6.01 begin by making the 
cursor be a double-underline (whose ASCII code is 176) instead of a 
single-underline. 


JOYSTICKS 
Your computer doesn't use joysticks. 


SEQUENTIAL FILES 
Instead of saying OPEN "SUE" FOR OUTPUT AS 1, say OPEN "0O",1,"SUE". In the 
quotation marks, be sure to put the letter O, not a zero. 
Instead of saying OPEN "SUE" FOR INPUT AS 1, say OPEN "I",1,"SUE". 
Instead of saying OPEN "SUE" FOR APPEND AS 1, say OPEN "E",1,"SUE". The 
"E" tells the computer to Extend the file. 
Your computer doesn't understand the usual meaning of LOF(1). 


RANDOM ACCESS é 
Instead of saying OPEN "JIM" AS 1 LEN=20, say OPEN "R",1,"JIM", 20. 
LOF(1) is the number of records in the file (instead of being the number of 
bytes). 
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OTHER COMPUTERS 


COMMODORE 

The Commodore Vic-20 resembles the Commodore 64, except for minor differences, 
such as the following. 

On the Commodore Vic-20, colors 9 and 10 are pink, color 11is light cyan, color 
12 is light purple, and color 15is light yellow. The border color number must be less 
than 8. 

To handle the border and background colors, don't use cells 53280 and 53281. 
Instead, compute (the color number of the background you want) *16+(the color 
number of the border you want)+8, then set C equal to that sum and say: 


POKE 36879,C 


If you omit the +8 from the formula for C, the characters will be inversed, so that 
you'll get light characters on a dark background, instead of dark characters on a 
light background. 


COLECO 
Coleco's Adam resembles the Apple 2+, 2e, and 2c, but uses different memory cells 
for PEEK and POKE, and normally uses tapes instead of disks. Although the Adam's 
tape drive can create "random-access files", it creates them so slowly that you'll 
think it's broken. 


TANDY'S RADIO SHACK 
Here's how to use the TRS- 80 Model 3. 
Exponents. Instead of typing the symbol "“", type the symbol "([", by pressing 
the up-arrow key. 
String analysis. To set the date to 01-24-1987, say: 


POKE 16924,1: POKE 16923,24: POKE 16922,87 
To set the time to 13:45:07, say: 
POKE 16921,13: POKE 16920,45: POKE 16919,7 


If you say PRINT TIME$, the computer will print both the date and time. Your 
computer doesn't understand TIMER. 

Memory cells. Same as Model 4, but uses cell #16419 instead of #2968, and 
normally makes the cursor be a double-underline (ASCII 176) instead of a 
single-underline. 

Varying the INPUT statement. Same as Color Computer 2. — 

INPUTS. Same as Color Computer 2. 

Joysticks. Your computer doesn't use joysticks. 

SWAP. Your computer doesn't understand SWAP, so use the alternative. 

Sequential files. Same as Model 4. 

Random access. Same as Model 4. 


COMPUTERS THAT USE CP/M 
Computers that use CP/M are very similar to the TRS-80 Model 4. 
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THEME S 


GRAPHICS IN VOLUME 1 
Graphics-input devices (volume 1 page 53). How to produce graphics using BASIC 
(page 170) and 1-2-3 (242). BASIC graphics on the IBM PC (273), Commodore (281), 
Atari (286), Apple (298), Macintosh (307), TRS-80 Coco (312), TRS-80 Model 4 
(317), PC Junior (318), and TRS-80 Model 3 (325). 


GRAPHICS IN VOLUME 2 
State of the art (volume 2 page 4). LOGO versus BASIC (page 6). Classic computer 
art (18). 3-D drawing (37). Mac Paint details (40). Which graphics programs to buy 
(45). Graphics in games: Othello graphics (59), action games (60), and graphics 
adventures (63). LOGO details (192). . 


DATA MANAGEMENT IN VOLUME 1 
Summary of data-management concepts and products (volume 1 page 57). Integrated 
programs (page 58). Data disks (59). BASIC's DATA statements (144) and DATA 
sums (184). Data-management jargon (248). Data-management systems versus word 
processing (249). PFS (249). Q&A details (250). Which data-management systems to 
buy (269). 


DATA MANAGEMENT IN VOLUME 2 
DBASE versus BASIC (volume 2 page 6). Retrieval using English (page 92). Data 
entry (106). Data-management systems versus spreadsheets (109). Business 
decisions about data management (109). Vertical software (110). Hassles in hiring 
consultants (111). DBASE versus accounting packages (114). BASIC's subscripts 
(123), alphabetizing (172), and data files (180). PASCAL's arrays (227). DBASE 
details (230). 


a 
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BASI€ I) A NUFSHELE 


Commands 

Output 
Text 
Program 
Graphics 
Audio 

Variables 
Assignment 
Clock 
Input 
Data 
Numeric sequences 
Unusual types 

Modules 
Main routine 
Branching 
Subroutines 
Error traps 
Editing 

Disks 
Program transfer 
Directory 
Data files 
Random access 

Functions 

Math 
Exponents 
Trigonometry 
Stripping 

String analysis 
Long strings 
Substrings 
Number conversion 
ASCII conversion 


Random-access con. 


Status reports 
Clock 
User input 
Data files 
Special RAM cells 


PRINT, LPRINT, PRINT USING, LOCATE, CLS 
LESToiLELStT 

PLOT, LINE, CIRCLE, PAINT 

BEEP, SOUND, PLAY 


X=, MID$S=, SWAP 

TIMES=, DATES= 

INPUT, LINE INPUT 

DATA, READ, RESTORE 

FOR, NEXT, RANDOMIZE, POKE 
DIM, DEFINT 


RUN, END, STOP 

GO TO, IF, ON N GO TO 
GOSUB, RETURN, ON N GOSUB 
ON ERROR GO TO, RESUME 
EDIT, RENUM, DELETE, NEW 


SAVE, LOAD 

FILES, RENAME, KILL 

OPEN, CLOSE, PRINT#1, INPUT#1 
FIELD, LSET, PUT, GET 


EXP, SQR, LOG 
SIN, COS, TAN, ATN 
ABS, INT, SGN 


LEN, STRINGS 

LEFT$, RIGHTS, MID$, INSTR 

VAL, STR$ 

ASC, CHR$ 

MKI$, MKS$, MKD$, CVI, CVS, CVD 


DATES, TIMES, TIMER 
INPUTS, STICK 
EOF, LOF, LOC 
PEEK, RND 
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Command What the computer will do Page 

BEEP hum for a quarter of a second 172 in vol. 1 
IRCLE (100,100) ,50 draw a circle at (100,100) with radius 50 170in vol. 1 
LOSE put finishing touches on the data files 180 

LS clear the screen, so it becomes blank 110 in vol. 1 
DATA MEAT ,POTATOES use this list of data: MEAT, POTATOES 144 in vol. 1 
DATES=''01-24-1987"' set the clock/calendar to 01-24-1987 137 

DEFINT A-Z make all the numeric variables be integers 144 

DELETE 30-80 delete lines 30-80 from the program 107 in vol. 1 
make X$ be a list of 7 strings 123 
edit line 30 of the program Later olegt 
ND skip the rest of the program 117 in vol. 1 
let file#1's record be 30 bytes & called X$ 183 
print the names of all the disk files 137 in vol. 1 
repeat the lines underneath, 100 times 154in vol. 1 
ae ars from file#1, get the 7th record 183 

07 70.10 skip to line 10 of the program 112 in vol. 1 
OSUB 1000 do the subroutine that begins at line 1000. 116 

if A$ is "FINE", print a blank line 128 in vol. 1 
ask "WHAT NAME?" & get the answer N$ = 122 in vol. 1 
LG SOE erase the file JOE from the disk 138 in vol. 1 
INE (0,0)-(100,100) draw a line from (0,0) to (100,100) 170 in vol. 
INE INPUT "TYPE IT";N$ say "TYPE IT" & grab whole line as input 164 

IST print a list of all the program's lines 101 in vol. 
EST copy all the program's lines onto paper Lidinsvol-. 
OAD "JOE" copy the program JOE from disk to RAM 137 in vol. 
OCATE 3,7 move to 3rd line of screen, 7th position 169 in vol. 
PRINT. 1 LOVE YOU" print "I LOVE YOU" on paper 111 in vol. 
SET X$=""I_ LOVE LUCY" make field variable X$ be "I LOVE LUCY" 183 


eA he pe 


ID$CA$,2) ="OWL"' change the middle of A$ to "OWL" 136 
EW start a new program 100 in vol. 1 
EXT X repeat the lines above, for the next X 154 in vol. 1 


ON ERROR GO TO 1000 if the lines below cause errors, go to 1000 179 
ON N GO TO 80,100,20,350 go to 80, 100, 20, or 350, depending on N 177 
ON N GOSUB 80,100,20,350 gosub 80, 100, 20, or 350, according toN 178 
OPEN ''S'' FOR OUTPUT AS 1 create a data file called "S", & output to it 180 


PAINT (100,101) fill in the shape that surrounds (100,101) 170in ak 
PLAY "CDG#B-A"' play this music: C, D, G sharp, B flat, A 173 in vol. 1 
PLOT (100,100) put a dot at the point (100,100) | 170 invvolz71 
POKE--7512314 into memory cell #7512, put the number 14 146 

PRINT 5+2 print the answer to 5+2 95 in vol. 1 
PRINT USING ''##.#"; 30/7 print 30/7, rounded to one decimal place 160s 

Pee AT print onto file#1 the word "EAT" 180 


in file#1, change the 50th record 183 
RANDOMIZE make random numbers be unpredictable : 
READ A$ get a string from the DATA & call it A$ 144 in vol. 
RENAME "JOE" TO "FRED'' find the file JOE & rename it "FRED" 138 in vol. 
RENUM renumber all the program's lines, by 10's 142 in vol. 
RESTORE so back to the beginning of the DATA 146 in vol. 
RESUME 30 end the error trap, by going to line 30 179 
RETURN return to main routine (from subroutine) 116 
obey all the program's instructions now 
SAVE "JOE" copy the program to disk & call it "JOE" : F 
SOUND 440,18.2 make a sound of 440 hertz, for 1 second 172 in vol. 
STOP stop the program and print a message 117 in vol. 


et et 


make A & B swap values with each other 
"THIS PROGRAM IS DUMB note that this program is dumb 143 in vol. 1 
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Function Meaning Value Page 
ABS (-7) absolute value of -7 7 134 

ASC C"'A') ASCII code number for A_.. 65 
arctangent of 1, in degrees 45 
HRS (65) 65th ASCII character AS: 138 
OS (60*D) cosine of 60 degrees ap) 141 
VD C''RAT NAN~"') convert to double-precision .2014209944946413 184 
VIC"ME") convert to integer 17741 184 


VS C'NAN™!)_ convert to single-precision .201421 184 
Ee a a 
XP (1) e raised to the first power 2.718282 143 
INPUTS (4) 4 characters that are input varies 165 
INSTRC'NEEDED","ED'") position of ED in NEEDED 3 Lot 
INSTR(4,"NEEDED","ED) search from 4th character 5 137 


A turn into an integer Tz 135 
EFTSC"SMART"',2) left 2 characters of SMART "SM" 136 
ENC''SMART'') length of SMART ota 136 
0c (1) location of record in file#1 varies 183 

length of file#1, in bytes VALS 182 
2 logarithm base e 1 144 
IDSC''SMART"', 2) begin at 2nd character "MART" 136 


ID$C''SMART" 2,3) begin at 2nd, take 3 "MAR" 136 
KD$(.2014209944946413)make the double a string ‘''RAT NAN~" 184 
make the integer a string ‘''ME" 184 
make the single a string "NAN" 184 
PEEK (7512 peek at memory cell #7512 vartes 
rightmost 2 characters ents 136 

random decimal VAULEA 191 in vol. 1 
random integer from 1 to 5 185 invol. 1 
SGN (-546) sign of -546 =4 142 
SIN (30*D) sine of 30 degrees se) 141 
SQR (9) square root of 9 : 3 134 
STICK (CO) position of joystick VALLES 166 


turn 81.4 into a string eS Oteae 137 

a string of 5 B's "BBBBB"' 140 

66 66th ASCII, 5 times "BBBBB"' 140 
AN (45*D) tangent of 45 degrees 1 142 


IMES current time of day VALS 137 
TIMER # of seconds since midnight varies 137 


\ verdant i remove the quotation marks 72.6 vod 


(283) Lists: BASIC in a nutshell 


NIF TX LANG 


LOGO Abbrzev'n 
BACK 50 BK 
CATALOG 

CLEAN 

CLEARSCREEN cs 
DOT [20 50] 

EDIT ''REBUKE ED 
END 

ERALL 

ERASE ''PINWHEEL ER 
ERASEFILE ''FRED 

ERN ''MAGICNUMBER 
ERNS 

ERPS 

FENCE 

FILL 

FORWARD 50 FD 
FULLSCREEN FS 
HIDETURTLE HT 
HOME 

IF :N<O [STOP] 

LEFT 90 Ly 
LOAD "FRED 

MAKE "AGE 21 
MIXEDSCREEN MS 
PENDOWN PD 
PENERASE PE 
PENREVERSE PX 
PENUP PU 
PO "SQUARE 

POALL 

PONS 

POPS 

POTS 

PRINT 5+2 PR 
REPEAT 4 [FD 50] 
RIGHT 90 RT 
SAVE ''FRED 
SETHEADING 90 SETH 
SETBG 1 

SETPC 2 

SETPOS [30770] 
SETSP 30 

SETX 30 

SETY 70 

SHOW [MA CAN'T] 
SHOWTURTLE Si, 
STOP 

TELL 1 

TEXTSCREEN TS 
TO SQUARE 

WINDOW 

WRAP 
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ae 
211 
196 
196 
196 
205 
203 
211 
211 
211 
211 
211 
211 
194 
195 
194 
197 
192 
194 
208 
193 
211 
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195 
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210 
210 
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210 
210 
198 
201 
193 
211 
193 
196 
195 
194 
194 
194 
194 
200 
192 
208 
196 
197 
203 
194 
194 


UAGES 


PASCAL 


ELS 


BEGIN; 


E 


END. 


FOR 
GOT 
IF 

LAB 
PRO 
PRO 


Peto 21 GeO 
Oy 10: 
AGE<18 THEN 
ELa10; 

CEDURE INSULT; 
GRAM WINE; 


READLN (X) ; 


REP 
UNT 
VAR 
WHI 


WRITELNC'I WOULD KISS'); 
: ARRAY [1..6] OF REAL; 
: CHAR; 

: INTEGER; 


x< 


X 
X 
ne 
As 


>< 


XE 


EAT 
IL GUESS=6; 


LE I<1000 DO 


REAL; 


: STRING[ 80] ; 


=2; 
}: 


Page 
213 
219 
213 
220 
224 
218 
224 
225 
213 
217 
220 
220 
216 
221 
213 
227 
226 
216 
216 
228 
216 
radu 


ene HATES COMPUTERS} 217 


DBASE 


ACCEPT ''WHAT FOOD? '' TO FOOD 


APPEND 
APPEND BLANK 
AVERAGE 
AVERAGE INCOME 
AVERAGE INCOME TO X 
BROWSE 
CANCEL 
CASE. DESIRE="'X" 
CLEAR 
CLEAR ALL 
CONTINUE 
COPY 
COPY STRUCTURE TO FRED 
COPY TO" FRED 


Page 
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244 
260 
239 
239 
253 
243 
297 
260 
252 
255 
241 


246 
246 


COPY TO FRED FIELDS AGE,SEX 246 


COPY TO FRED FOR NAME="'SAN" 


COUNT 
COUNT TO X 
CREATE FAMILIES 
DELETE 
DELETE FOR NAME="'SAN" 
DELETE RECORD 3 
DIR 
DIR *.NDX 
DIR *.PRG 
DIR *.* 
DISPLAY 
DISPLAY ALL 
DISPLAY FOR NAME="'SAN"' 
DISPLAY NEXT 
DISPLAY REST 


DISPLAY WHILE INCOME<100000 


DO 
DO CASE 
DO STATS 
DO WHILE .T. 
DO WHILE X<=10 
EDIT 
EDIT RECORD 3 
EDITS 
ELSE 
END 
ENDCASE 
ENDDO 
ENDIF 
ENDTEXT 
ERASE FAMILIES.DBF 
EXIT 
FIND SAN 
GO 
GO BOTTOM 
GO TOP 
GO 3 
iy 
IF AGE<18 
IF EOFQ 
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246 
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260 
250 
296 
257 
243 
243 
243 
256 


260 
256 
256 
251 
247 
297 
249 


241 
241 
241 


296 
260 


INDEX ON NAME TO FAMNAME 
INPUT ''HOW OLD ARE YOU? "' TO AGE 
INSERT 
LIST 
LIST FOR INCOME<100000 
LIST OFF 
LIST RECORD 
LIST STRUCTURE 
EEST <TOPRINT 
LOCATE FOR NAME="'SAN" 
LOOP 
MODIFY 
MODIFY COMMAND STATS 
MODIFY STRUCTURE 
OTHERWISE 
PACK 
QUIT 
READ 
REINDEX 
RENAME FRED.BAK TO FRED.DBF 
REPLACE INCOME WITH 60000 
SEEK ''SAN" 
SET 
SET DEFAULT TO B ot C 
SET DELETED ON 0% OFF 
SET EXACT ON 0% OFF 
SET HEADING ON Oo” OFF 
SET PRINT ON o% OFF 
SET TALK ON o% OFF 
SKIP 
SORT ON NAME TO FRED 
STORE) 7-1, 31 0).X 
SUM 
SUM INCOME 
SUM INCOME TO X 
TEXT 
USE 
USE FAMILIES 


USE FAMILIES INDEX FAMNAME 
WAIT "WHAT INITIAL? " TO INITIAL 
ZAP 
Vhs 

Z=UPPER (Z) 

Z=7-1 
a 


a1:0725 .GET. CITY 
@10,25 SAY "DROWN" 
@10,25 SAY "WHAT AGE?" GET AGE 


2? 5+2 
2? "HER'' 
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247 
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245 
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245 
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240 
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241 
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254 
253 


255 
252 
255 
260 
231 
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SHARE 

Share your secret: photocopy the next page, and give it to a friend. If you know a 

young (or young-at-heart) computerist who's having a birthday, Christmas party, 

or graduation, turn these volumes into a present: send me the computerist's name, 

address, and either a greeting card or what you want me to say. 


PRICES & POLICIES 
The Secret Guide to Computers consists of three volumes. Volume 1 (Secret Skills) 
covers the fundamentals; volume 2 (Secret Thrills) covers the excitement; volume 3 
(Secret Chills) covers the hassles. Each volume costs just $8. Do not send money for 
regular (book-rate) postage and handling: I'll pay for them myself, even if you live 
in a foreign country. If you're not sure whether to order a book, go ahead: you can 
return unused books at any time, for a 100% refund. 


DISCOUNTS 


The list price is $8 per book; so the three-volume set costs $24. To pay less, get 
together with a friend: 


20% discount if you order 2 sets (or any 6 books); you pay just $6.40 per book 
30% discount if you order 3 sets (or any 9 books); you pay just $5. 60 per book 
40% discount if you order 4 sets (or any 12 books); you pay just $4. 80 per book 
503 discount if you order 50 sets (or any 150 books); you pay just $4 per book 
60% discount if you order 600 sets (or 1800 books); you pay just $3.20 per book 


START YOUR OWN BOOK BUSINESS 
To start your own book business, buy books in quantity from us at discount, and 
sell them to your friends for slightly under list price. You'll make your friends 
happy (since they'll pay less than list price), and you'll be happy also (because 
you'll be helping your friends and also be turning a profit). 


IF YOU'RE IN MASSACHUSETTS... 
If the person who orders the book, or the person we're shipping the book to, is in 
Massachusetts, we must charge Massachusetts sales tax—unless the book is for a 
government agency or tax-exempt agency (give us you tax-exempt number) or for 
resale (give us your Massachusetts resale number) or is a required text for a course 
(tell us which college and course). 


PICK-UP 
Normally, you get the books by mail. If you live near Boston and don't want to wait 
for your mailman, come to us and pick up the books yourself. Before you come, 
phone us at 617-666-2666, so we can give you directions and a guaranteed pick-up 
time. 


PURCHASE ORDERS 
If you work for a government agency (such as a public library or a public school), 
or an accredited private school, or an established bookstore or computer store, or a 
major computer manufacturer, we'll accept your purchase order, which you must pay 
30 days after receiving the books. 


REVIEW COPIES 
If you're a reviewer for a large magazine, or the head of a large computer 
department, you might be able to get a complimentary copy of The Secret Guide to 
Computers for review. To find out, phone us. 
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CUT OUT THIS COUPON! 


How many copies do you want of volume 1 (Secret Skills)? 

How many copies do you want of volume 2 (Secret Thrills)? 

How many copies do you want of volume 3 (Secret Chills)? 
TOTAL number of books: 


TOTAL number Price per Price per book, if you're a Massachusetts 
of books book, usuall resident (including 5% sales tax) 
Lie =o5 $8. 00 $8.40 
Gi =78 $6. 40 $6.72 
pe ea $5. 60 $5.88 
12 - 149 $4. 80 $5.04 
150 - 1799 $4.00 $4.20 
1800 & up $3.20 $3.36 


Multiply your TOTAL number of books by the price per book, and write the 
TOTAL book price here: 
Put a check mark in front of the shipping method you choose... . 


0 Book rate (or library rate or parcel post or surface), to anywhere in the world: 
we charge nothing; free! 


O Special handling (which is faster than book rate, and almost as fast as priority 
mail), to USA only: we charge just $2 total, even if your order is large 


O Priority mail (or first-class airmail): we charge $2 per book to USA, 
$3 per book to Canada and Mexico, $9 per book to other countries 


O Express mail (usually overnight), to USA only: we charge $12 for the first 
book, plus $3 for each additional book 

FREE brochures on the following topics will become available soon. You can get on 

our mailing list now, by checking the brochures you want... . 

0 how you can get later editions of The Secret Guide to Computers 

0 how you can get The Secret Guide to Tricky Living 

O how you can attend one-day & two-day courses taught by Russ in various cities 

0 how you can attend one-week & multi-week summer courses taught by Russ 


O how you can get Secret Videotapes 


In the box, PRINT your name and address: 


ea 


_ ———— A 
On the back, write any comments you have (pro or con) about the Secret Guide. 


Add the total book price to the shipping charges (if any); make the check or 
money order payable to The Secret Guide to Computers. Send to Russ Walter, 
22 Ashland St., Somerville, MA 02144-3202. 
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PRAISED BY COMPUTER MAGAZINES | 
The Secret Guide to Computers is praised by all the famous microcomputer | 
magazines. | 

PC World: "Russ Walter is a PC pioneer, a trailblazer, the user's champion. 
Nobody does a more thorough, practical, and entertaining job of teaching PC 
technology. His incomparable Guide receives nothing but praise for its scope, wit, 
and enormous practicality. It offers a generous compendium of industry gossip, 
buying advice, and detailed, foolproof tutorials. It's a wonderful bargain." 

Byte: "The Guide's amazing. If you need to understand computers and haven't 
had much luck at it, or have to teach other people about computers, or just want to 
read a good book about computers, get the Guide." 

Computer Currents: "Russ Walter's a genuine character and the author of the 
wacky and useful Guide, the only known book that comes with after-sale support. 
He's a folk hero." 


PRAISED BY LIBRARIANS 
Librarians call the Guide the best computer book ever written. 

School Library Journal: "The Guide's a gold mine of information. It's crystal 
clear, while at the same time Walter delivers a laugh a paragraph along with a /ot of 
excellent info. It's accessible even to kids, who will love its loony humor. Buy it; 
you'll /ike it." 

Wilson Library Bulletin: "The Guide's distinguished by its blend of clarity, 
organization, and humor. It cuts through the techno-haze. It packs more simple, 
fresh explication per page than anything else available." 


PRAISED AROUND THE WORLD 
The Guide is praised by newspapers around the world. 

The Wall Street Journal: "Russ Walter's a computer expert, a guru who doesn't 
mind phone calls. He brings religious-like fervor to the digital world. His students 
are grateful. His Guide gets good reviews. He's influential." 

Connecticut's "Hartford Courant": "If you plan to buy a personal computer, the 
best gift to give yourself is the Guide. It's crammed with info. It became an instant 
success as one of the few microcomputer books that was not only understandable and 
inexpensive but also witty—a combination still too rare today." 

Silicon Valley's "Times Tribune": "The Guide invites you to throw aside all rules 
of conventional texts and plunge into the computer world entirely naked and 
unafraid. This book makes learning not only fun, but hilarious, inspiring, and 
addicting." 

England's "Manchester Guardian": "A welcome relief from grey-suited 
consultants, Russ Walter rolls into class clad in witches cap, monks habit, and roller 
skates, while wielding an African spear as his pointer. The internationally renowned 
computer guru tries to keep honesty alive. His three volumes are extraordinary 
sources of information." 

Australia's "Sydney Morning Herald": "The Guide is the best introduction to 
computers published anywhere in the world. It gives a total overview of personal 
computers. It's stimulating, educational, provocative, and a plain damn good read. 
Russ Walter doesn't mess around with vague generalizations. He says which machines 
and programs are best." 


MORE 
For additional praise from reviewers, see pages 2-4 of volume 1. To peek at the 
mounds of fan mail we receive, turn to page 4 of volume 1 and pages 2-3 of volume 3. 


